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de introduction al fabuloso mundo hasta robots!! 


de MSX. 

Participe del Club de Usuarios 
de MSX y encuentrese con sus 
amigos que tambien tienen la 
TALENT MSX. e intercambiara 
programas. datos y chimentos. 


Podra ver y leer todo lo que le interese 
sobre la norma MSX: catalogos, 
libros y revistas de todo el mundo. 
Todo con la seguridad. respaldo 
y seriedad que solo TALENT puede 
brindarle. 


jPara inscribirse, no olvide traersu factura de compra! 
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MAYOR COMPATIBILIDAD 

a aparicion de una nueva computadora eon 
L norma MSXen el mercado argentino es un 
" acontecimiento signifieativo como se puede 
apreciar en la nota que publicamos en este numero. 
Viene a reafirmar las esperanzas y esfuerzos de todos 
aquellos que se indinaban por la compatibilidad de 
equipos y sistemas. 

Este hecho sirve para que las dificultades en la inter- 
conexion de computadoras y perifiricos de dHerente 
origen se vean reducidas. En todo caso es un paso mis 
para que las posibilidades del usuario se ampllen y la 
computadora se convierta en la “herramienta” que de- 
be ser. 

De esta manera avanzamos un tramo mis en ese arduo 
camino que Neva a alcanzar la madurez dentro del 4m- 
bito tecnoligico de nuestra informitica. La “standa- 
rizaciin” que se esti lograrido con la norma HSX es 
un hecho y los que manejan el mercado asi parecen 
entenderlo. 

LOS EDITORES 


umario 


LOGO PARA APRENDER 
YJUGAR 


Permite introducirnos facil- 
mente en el mundo de las 
computadoras sin instruccio- 
nes complicadas, en Castella- 
no y con el mismo sentido 
que las palabras que usamos 
cotidianamente para expre- 
sarnos. (Pag. 6) 

LAS RIENDAS DEL 
ASSEMBLER 


A partir de este momento 
comenzamos a sumergirnos 
dentro del Z-80. Veremos su 
funcionamiento y como con- 
trolar sus actividades. (Pag. 
16 ) 

GRAFICADORDEALTA 
RESOLUClON 

Como vimos en los numeros 
anteriores, hemos programa- 
do pedacitos del programa: 
como movernos por la pan- 
talla, pintar y de que forma 
podemos guardar nuestro 
grafico. Pero con esto no he- 
mos terminado (Pag. 24) 


DESNUDAMOS EL CHIP 
DE SONIDO 


jComo y por que podemos 
visualizar las letras y simbolos 
en la pantalla? Un tema muy 
interesante, pero que muy 
pocos conocemos. En esta 
nota hablaremos de la estruc- 
tura de la parte de video de 
las computadoras, pero en 
especial de nuestras MSX. 
(Pag. 28) 


PROGRAMS 

La escalera del duende (pag. 
1 0) - Prestamos y Amortiza- 
ciones (pag. 22). Clase de 
ecuaciones (pag. 13) - El 
compositor audaz (pag. 31). 


SECCIONES FIJAS 

File (pag. 4) - Sortilegio (pag. 
27) - Raiting Soft (pag. 32) - 
Mailing (pag. 34). 




AVANZALA NORM MSX 

Con la aparicion de esta ma- 
quina en el mercado, la com- 
patibilidad del standard MSX 
se extiende en nuestro pais. 


La posibilidad de utilizar la 
memoria como RAM-disk, y 
dos conectores para cartu- 
chos son ventajosas noveda- 


(Pig- 18) 

des en la computadora Tos- 
hiba. Pero la HX-20 se hace 
sobresaliente al inclui.r el 
procesador de textos. 




ASCII EN 
LUGAR DE 
MICROSOFT 


Avalado por la venta de mas 
de un millon de computado- 
ras de norma MSX solamen- 
te en JAP6N durante el ano 
1985, este sistema standard 
se impone cada dia mas. 
Aunque algunos fabricantes 
se empecinan en cambiar 
ciertos aspectos de las com- 
putadoras que producen, con 
los fines que ya conocemos, 
los creadores del MSX se 
proponen todo lo contrario, 
y mas. 

Esto queda demostrado por 
el precontrato firmado por 
ASCII y MICROSOFT gracias 
al cual la primera ha tornado 
las riendas de este standard. 
No solo se proponen lograr 
la compatibilidad entre todas 
las maquinas que se han dado 
en llamar de norma “MSX” 
sino avanzar sobre la compa- 
itibilidad entre estas y las de- 
nominadas PC. 

Y esto es un hecho. De la 
mano de ASCII (ahora dueha 
de los caminos que tomara la 
norma) se estan creando — 
inclusive por ellos mismos — 
grandes paquetes de softwa- 
re que haran saltar de su silla 
a mas de uno. 

Por otro lado, ASCII se pro- 
pone, con agresivas campa- 
fias, plagar con la norma el 
mercado europeo y si es po- 
sible mundial. 

Entre sus desarrollos proxi- 
mos a salir, se encuentra un 
digitalizador de voz, basado 
en un chip muy barato, orien- 
tado a complementar varios 
desarrollos de software edu- 
cativo. Asi, el alumno podra 
hablar directamente con la 
computadora sin intermedia- 
ries. Su funcionamiento es si- 
milar al digitalizador de ima- 
genes que, aparte, ya tiene 
varias versiones y fabricantes 


japoneses, aunque aqui toda- 
via no es comun verlos. 

Por otro lado, la firma KO- 
NAMI (japonesa) anuncio que 
esta trabajando en un nuevo 
desarrollo de software (un 
juego) que incluye impresio- 
nantes pantallas utilizando 
otro de los chips engendra- 
dos por los japoneses. Recor- 
demos que esta firma es una 
de las mas importantes crea- 
doras de juegos para esta 
norma. 

COMPACT DISC 

Los orientates continuan am- 
pliando las posibilidades de las 
MSX incorporandoles acce- 
sorios potentes. 

Esta vez, la empresa PIO- 
NEERdecidio agrandar esta 
expansion de las computado- 
ras de norma estandar, co- 
nectando un ordenador con 
un video. 

Pero esto no es lo insolito, 
sino que el tratamiento de 
imagenes se efectuara con un 
Compact Disc. 

Esta firma de electronica ha 
fabricado una computadora 
con el P-BASIC, aplicado pa- 
ra el manejo del video. 

Los japoneses han consegui- 
do la vanguardia al mezclar 
las computadoras con las ma- 
quinas de video, y el hecho 
de haber incorporado este 
nuevo sistema del Compact 
a los procesamientos de ima- 
genes, marca que todo ya es 
posible. 

inclusive, los Compact Disc 
se transformar^n en una uni- 
dad de almacenamiento ma- 
sivo, CP-ROM, con mucha 
mas capacidad de guardar da- 
tos que los disketes, dando 
fin a las mediciones en 
kbytes, porque se hablara de 
la capacidad en Megabytes. 


TALENT PLAN 

Talent creo un nuevo plan de 
ahorro previo para no dejar 
a nadie sin la posibilidad de 
contar con una MSX. Son nu- 
merosas las ventajas. Antici- 
par las cuotas nos evita pagar 
ios gastos administrativos. 
Las cuotas pagadas se actua- 



lizan automaticamente. Al 
pagar cuotas anticipadas tam- 
bien congela definitivamente 
el porcentaje pagado de la, 
MSX y/o perifericos al igual 
que todas las cuotas 
abonadas. 

Si decidimos desistir del 
PLAN, lo abonado se resti- 
tuye actualizado al finalizar el 
contrato, con una disminu- 
cion del 2% (renuncia) o del 
4% (rescision). 

Todos los meses se sortea 
una computadora aparte de 
la licitacion. 

Este nuevo plan en realidad 
son tres. Es decir, hay tres 
planes, cada uno con diferen- 


tes opciones, pero la forma 
de ahorro es la misma. 

Plan I : computadora MSX 
DPC 200 (alternativa Unidad 
de Disco Flexible Talent 
MSX DPF-550 o 555 sin di- 
ferencia de precio). 

Plan 2: computadora Talent 
MSX DPC200 y unidad de 
disco flexible 550 o 555 (al- 
ternativa reemplazar compu- 
tadora o unidad de disco fle- 
xible por monitor TV Talent 
14” sin control y la diferen- 
cia para cancelar cuotas). 
Plan 3: computadora perso- 
nal MSX DPC 200, unidad de 
disco DPF 550 6 555 y mo- 
nitor TV Talent 14” sin 
control. 


CONPUPR ANDO = 


A<j. ae HAYO 965 
1084 - 8s. As. 
Tel.: 38-0295 
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Msx-lom 


LOGO PARA APRENDER 
Y JUGAR 


Permite introducirnos facilmente en el 
mundo de las computadoras sin instruc- 
ciones complicadas, en castellano y con 
el mismo sentido que las palabras que 
usamos cotidianamente para expre- 
sarnos. 

/ / / 

/// X x 



e trata de un lenguaje de pro- 
Jr gramacion que nacio en el La- 
boratorio de Inteligencia Arti- 
ficial del Instituto Tecnologico de Mas- 
sachusets a fines de I960. 

Debido al alto nivel de fracaso escolar 
en la asignatura de matematicas, un equi- 
po de investigadores de ese instituto, 
oriento la creacion de un nuevo lengua- 
je. para solucionar el problema de los 
estudiantes. 

El equipo estaba dirigido por un mate- 
matico y pedagogo llamado Seymor Pa- 
pert. De alguna manera, Papert llevo al 
campo informatico las ideas de su maes- 
tro, el psicologo Jean Piaget. Seymor 
consiguio fijar los cimientos donde se 
apoyaria, luego, uno de los lenguajes de 
alto rendimiento para el usuario, ademas 
de ser de facil comprension. 

Por su sencillez de manejo, permite ser 
adoptado por personas de todas las eda- 
des que se inicien en la programacion. 

Se busco principalmente un elemento 
didactico con miras a utilizarlo para el 


aprendizaje y desarrollo de la capacidad 
intelectual de los alumnos. 

Fue asi como empezo a encasillarse al 
Logo como de uso casi exclusivo en la 
ensenanza, que permitia a los nifios ex- 
perimentar por si mismos y desarrollar 
el conocimiento de una forma construc- 
tiva, ayudandolos a comprender ideas 
abstractas (como conceptos matemati- 
cos), con el empleo de las computado- 
ras. El Logo derivo del lenguaje Lisp, 
muy empleado para problemas de inte- 
ligencia artificial. Este ultimo lenguaje es 
algo complicado de manejar, especial- 
mente por la enorme cantidad de paren- 
tesis que utiliza. 

Aplicaciones y avances 

MSX-Logo deja de ser de uso exclusivo 
para la educacion. Gracias a su poten- 
cia, permite desarrollar calculos compli- 
cados para sistemas expertos o traba- 
jar directamente con la memoria de la 
computadora (como POKE, PEEK, et- 
cetera en BASIC). 


Una version bastante potente de este 
lenguaje fue el TI-LOGO, empleado por 
las computadoras Texas Instruments. 
Las ventajas del MSX-Logo son, funda- 
mentalmente, los comandos y operacio- 
nes en castellano, ademas de su optimi- 
zacion, satisfaciendo asi las necesidades 
de cada vez mas usuarios. 

La facilidad de asimilacion de este len- 
guaje por los chicos se debe, principal- 
mente, a que el conjunto de ordenes 
que se pueden realizar ni bien son car- 
gadas en la computadora son, al mismo 
tiempo, palabras con sentido para la 
computadora y para el lenguaje natural 
del usuario. A diferencia del BASIC, no 
hace falta contar con un diccionario 
ingles-castellano para traducir las pala- 
bras que se deben utilizar. 

Logo se aproxima bastante a una charla 
entre el usuario y la computadora, don- 
de el primero ensena a la computadora 
a realizar algunos procedimientos como 
dibujar un cuadrado, tocar una melodia, 
etcetera. 

Crear graficos 

Logo permite crear interesantes grafi- 
cos en pantalla. Para saber cual es nues- 
tra ubicacion en la pantalla, contamos 
con un “puntero”. En realidad este 
“puntero” se representa con la figura 
de una tortuga. Pero mejor aun, se pue- 
de cambiar !a representation del “pun- 
tero” por otras figuras ya definidas co-; 
mo una locomotora, un gato, un perro, 
un corazon y otras mas. O bien, definir 
nosotros mismos el dibujo que mas nos 
agrade. 

Podemos darle ordenes a cada “punte- 
ro” o tortuga, como ADELANTE, 
ATRAS, o girar un angulo determinado 
hacia la DERECHA o a la IZQUIERDA. 
El recorrido de sus movimientos puede 
quedar marcado con distintos colores, 
a gusto del usuario. Pero por supuesto, 
tambien se puede desplazar la tortuga 
por la pantalla sin dejar marcadas sus 
huellas con la instruccion SINPLUMA. 
Estas sentencias que permiten graficar 
en pantalla son simples de utilizar, co- 
mo todas las instrucciones contenidas en 
MSX-Logo. Como dijimos, mas bien pa- 
rece un dialogo entre el usuario y la 
computadora, que termina con la reali- 
zacion, por parte de la maquina, de las 
tareas especificadas por el programador. 
Apoyado por el manual adjunto al car- 
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tucho MSX-Logo, el usuario puede ex- 
perimentar sus propios inventos, como 
crear figuras geometricas de diversos ta- 
manos. De esta manera, el futuro pro- 
gramador comienza a comprender la 
idea abstracta de “variable”, palabra 
muy empleada en computacion. 

Manejo del lenguaje 

Las instrucciones que forman al Logo 
pueden ser ejecutadas directamente. Es- 
to permite probar el funcionamiento de 
las distintas instrucciones aisladas del 
programa total. Es decir, podemos ir 
probando instruccion por instruccion, 
con el fin de utilizarlas adecuadamente 
en un programa. 

En este lenguaje se le ensefia a la com- 
putadora a realizar otras tareas ademas 
de las ya implementadas en el lenguaje 
por sus fabricantes. Por ejemplo, se le 
dice cada paso que debe ejecutar para 
dibujar una silla. 

Estas tareas especificadas deben estar 
encerradas entre las palabras claves 
“PARA” y “FIN”. 

De esta manera, la computadora reali- 
zara todas las operaciones declaradas 
por el usuario que se encuentren entre 
estas dos palabras claves. 


Con este procedimiento, es posible in- 
corporar al lenguaje sentencias definidas 
por el usuario sin tener que ser exper- 
tos programadores. 

A esta forma de programar se la deno- 
mina “modular”, porque se construyen 
diferentes modulos, cada uno con una 


tarea especifica. 

En la figura I vemos un ejemplo de co- 
mo se definen las sentencias. Para los 
que han trabajado con otros lenguajes, 
como Pascal, y tienen cierta experien- 
cia en ellos, les vamos a mostrar por que 
Logo es mucho mas que un lenguaje pa- 
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ra chicos. Una caracteristica sobresalien- 
te de Logo es que permite trabajar con 
“recursividad” (metodo de programa- 
cion muy utilizado por los compiladores 
Pascal). 

La definicion de “ recursividad* * no es fa- 
cil de explicar con palabras. Se trata de 
un procedimiento que define una fun- 
cion en si misma. 

Esto, seguramente, para los que se ini- 
cian en el area informatica, no se entien- 
de. Por eso, proponemos en la figura 
2 un ejemplo. Como podemos notar, 
al final de la definicion del procedimien- 
to, este se llama a si mismo. A esto se 
le dice “recursivo”. 

La recursividad bien empleada facilita 
ampliamente la programacion de siste- 
mas complejos, porque permite expre- 
sar un problema como una version re- 
ducida de si mismo. 

La interpretacion de los listados de es- 
te lenguaje es sencilla (como se puede 
;i ver en los ejemplos dados) y permite en- 

contrar los errores de programacion 
I rapidamente. 

Esta es otra ventaja por la cual los pe- 
* quenos prograrctadores son atraidos. 

Calculos matematicos 


En MSX-Logo no se exduyeron las ope- 
raciones matematicas tradicionales de 
suma, resta, multiplication y division. 
Tambien las operaciones trigonometri- 
cas de seno, coseno, arcotangente, et- 
cetera, utilizadas por los usuarios mas 
avanzados, se encuentran implantadas. 
Con la sentencia REDONDEO se ob- 
tiene la parte entera de un numero, y 
con las sentencias AZAR o REAZAR se 
escogen numeros aleatorios. 

Figura 1 


?para 
para silla 
adelante 40 
atras 20 
derecha 90 
adelante 16 
derecha 90 
adelante 20 
fin 

silla definido 



Para operar con las variables logicas, las 
sentencias NO, O e Y son las equiva- 
lentes en BASIC al NOT, OR y AND. 
Es decir, Logo contiene las operaciones 
del BASIC, mas las operaciones trigono- 
metricas, pero no en ingles. 


Entrada y salida de 
datos. 


Los datos pueden ser impresos en pa- 
pel. Para esto se utiliza la instruccion 
CONIMPRESORA. 

Para almacenarlos, se puede emplear 
cassettes o discos. En cada caso, las sen- 
tencias de “guardar” y “cargar” son di- 
ferentes. Pero ninguna es complicada de 
usar. 


Codigo de maquina. 

Los programadores mas expertos, tam- 
bien podran manipular directamente la 
memoria, creando programas en codi- 
go de maquina. Estas son algunas de las 
sentencias: 

• EXAMINAR: lee el dato situado en 
una posicion determinada de la memo- 
ria. (Como PEEK en BASIC) 

• DEPOSITAR: escribe un dato en una 
posicion determinada de la memoria. 
(Como POKE en BASIC) 

• DENTRO: lee un dato de los porti- 
cos de entrada o salida. (Como IN en 
BASIC) 

• LLAMAR: inicia la ejecucion de un 
procedimiento escrito en codigo de 
maquina. 

En fin, esta es una muestra de las posi- 
bles sentencias a ejecutar para trabajar 
con codigo de maquina. 

Definicion de SPRITES v 
sonido 


Para fabricar figuras, o sea SPRITES, se 
debe entrar al ‘‘editor de figuras” con 
la instruccion EDFIG n, donde n es el 
numero de la figura a editar. Simplemen- 
te con las tedas de cursor y la barra de 
espacio se definen las figuras. Para salir 
del modo editor se presiona la teda 
ESC. 

Las figuras disenadas permiten ser utili- 
zadas para graficar nuestros programas. 
Y sobre el sonido, MSX-Logo permite 
entrar al mundo de la melodia, con crea- 
ciones propias. Se pueden crear melo- 
dias a tres voces que suenan 
simultaneamente. 


Manual 


El cartucho, como dijimos antes, viene 


acompanado por un manual con las ex- 
plicaciones basicas sobre la forma de uti- 
lizar este lenguaje. 

Comienza con la introduccion al Logo. 
El primer capftulo es para familiarizar- 
nos con las MSX. En esta seccion, se le 
ensena al usuario como conectar co- 
rrectamente el equipo para poder ma- 
nejarlo. Aclara como se usan los discos 
y los cassettes, y explica las funciones 
de las teclas especiales como SHIFT, 
GRAPH, CODE y BS. En sintesis, es una 
introduccion al manejo de una compu- 
tadora a traves del Logo. 

Este manual trae una lista con las instruc- 
ciones con su correspondiente explica- 
cion rapida. 

Tambien estan incluidas las explicaciones 
de los mensajes de error que aparecen 
en pantalla. 

Al final de este compendio, encontra- 
remos informacion sobre los codigos de 
colores, las figuras de las tortugas ya de- 
finidas, la tabla de caracteres, las fre- 
cuencias de tonos y un listado 
comparativo de las sentencias" para las 
versiones de LOGO: USA, MSX y Tl 
99/4A. 

Logicamente, este manual esta explica- 
do en castellano, pero tambien trae una 
lista de sentencias Logo, traducidas del 
espanol al ingles y viceversa. 
Resumiendo, estamos frente a una he- 
rramienta imprescindible para los que se 
inician enla programacion y sobre todo 
para los mas pequenos. 


• Telematics S.A., licenciataria exdusiva de Logo 
Computer System Inc., para el lenguaje MSX- 
LOGO con adaptacion de primitivas y redaccion 
del Manual por los Ingenieros Hilario Fernandez 
Long y Horacio Reggini. 
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LAS ESCALERAS 
DEL DUENDE 




ste es un divertido entreteni- 
miento donde el personaje, un 
duende llamado PICKY, debe- 
ra subir y bajar escaleras o dejarse caer 
algunos pisos con el fin de encontrar ca- 
jas misteriosas. 

Alii encontraremos diferentes objetos. 
Cada uno tiene un valor diferente. 
Pero las cosas se complican cuando el 
duende es perseguido por una simpati- 
ca abeja. 

Al picar la abeja al duende, no lo mata, 
pero ya veremos que pasa si sucede va- 
rias veces. 

El programa tiene una pantalla principal. 
Para salir de ella tenemos que presionar 
la barra de espacio. Inmediatamente ve- 
remos cambiar el tamafio del sprite y se 
modificara la pantalla. 

Si conseguimos 'mantenernos jugando 
por bastante tiempo, obtendremos co- 
mo premio un bono extra de 500 pun- 
tos y pasar de nivel. 

En cada nivel se incrementa la velocidad, 
transformando al juego con un clima 
tenso y desesperante. 

Como vemos se trata de un entreteni- 
miento bastante completo. 

Pero hay que tener paciencia para co- 
piarlo. 

Para ayudarnos en la correccion del lis- 
tado (si es que cometemos algun error), 
hemos definido la teda de FUNCION 
I con: “SCREEN I ” para volver a ob- 
tener los caracteres comunes: y FUN- 
CION 2 como: “WIDTH 29” para 
ampliar la ventana de la pantalla. 

Si se brekea el programa (y si ya se re- 
definieron los caracteres), encontrare- 
mos imposible tratar de deducir el 
mensaje de error. 

Para esto conviene presionar FI y te- 
ner asi caracteres legibles. 

VARIABLES 

IMPORTANTES: 

Z$: guarda el puntaje. 

P: esta inicializado en 3. Se decre- 

menta en I cada vez que perdamos 
una vida. Al llegar a 0 termina el 
juego. 

T: tiempo de duracion de cada nivel. 

Al llegar T a 360, dara el bono ex- 
tra y pasaremos de nivel. 


ESTRUCTURA PEL 
PROGRAMA: 


I O — 1 20: inicializa las variables. 

130 — 340: parte principal del 
programa. 

350—370: dibuja piso. 

380 — 430: distingue cual es el punta- 
je segun el objeto re- 
cogido. 

440 — 450: coloca el puntaje. 

460 — 610: mueve el duende. 

620—730: persecucion y ataque de 
la abeja. 

740—890: comienzo. 

900 — 950: caer. 


960 — 1 000:chocar. 

101 0 — 1 050:atacar. 

1 060 — I I 30:pantalla para pasar de 
nivel. 

I 1 40 — 1 220:perder. 

1 230— 1 280:fin del juego. 

1290 — I420:pantalla de presen- 
tacion. 

1 430 — 1 570:pantalla principal. 

1580 — I700:definicion de ca- 
racteres. 

1 7 1 0— 1 760:lenguaje de maquina. 

1770 — 1 83©:definicion de los nue- 
vos caracteres. 

1840 — 1 900:declaracion de color. 

191 0 — 2 1 30:definicion de sprites. 



10 SCREEN 1,2,0: WIDTH 29: DIM A* ( 
3) ,T$(3) 

20 CLEAR 255, &HD7FF : COLOR 15,1,1 
: KEY OFF 

30 KEY 1 , "SCREEN 1":KEY 2, “WIDTH 
29" 

40 GOTO 1580 

50 CLS: POKE &HF922, 252: P0KE&HF92 
3, 23: WIDTH 24 


70 A*(l)=" 


be 

be 

be 

be 

ii 


80 A* (2)=" 


be 

be 

be 

be 

n 



90 A$(3>=" aaaaaaaaaaaaaa aa 
aaaaaaaaaaaaaaaaaa “ 

100 S=0 : P=3 : R= 1 : RT=0 : L= 1 00 : X =3 : Y 
=8 : V=0 : PLAY " s0m2500 1 255 1 8o 5 v 1 5 “ : H 
=0:3T=0:W=0 
110 GOSUB 1430 

120 T =0 : Z Z=0 s TT =0 : QT =0 : M=0 : N=0 : M 
E=3 : M 1 = X*8 : N 1 =Y*8 : MN=22-R*2 : M I =MN 
:QQ=5 

130 AA=ST ICK ( 0 ) : ON AA GOTO 460,1 

40,520, 140,490, 140,570 

140 IK$=INKEY$: IK=INSTR(1, " ! zc " 

,IK*):ON IK GOTO 150,620,740,870 

150 M=M+SGN(M1-M)*4:N=N+SGN(N1-N 

>*4:PUT SPRITE 3, <M,N),8,10 

160 MI=NI-1 : IF MI=0 THEN MI=INT( 

MN) : MN=MN+ <MN>5) * .02: M1=X*8: N1=Y* 

8: PUT SPRITE 3, (M, N) , 15, 10 

170 I=VPEEK (BASE (5) +X+Y*32) : IF { 

I >&H65) AND ( K&H69) THEN GOSUB 38 
0 

180 IF QT >0 THEN FOR 1=1 TO 10: N 
EXT 

190 IF (ABS (M-X*8) < 10) AND (ABS (N 

-Y*8><8) GOTO 960 

200 QT=QT+i : IF QT<6-R-INT (T/80) 

THEN 130: ELSE QT=0 

210 IF TT=0 THEN GOSUB 290 

220 IF T>360 GOTO 1060 

230 TT=TT+1: LOCATE A*2+3, 24: PR IN 

TMID* ( A* (TT) +A$ (TT) , C*2-l , B*2> 

240 IF Y=0 GOTO 1140 


250 Y=Y-1 : FOR 1=0 TO 2:VP0KE VDP 
(5) *128+1*4, Y*8: NEXT I 
260 IF TT>=3 THEN TT=0 
270 Z*=RIGHT*(" "+STR* (L> , 3) : 

Q=12: GOSUB 440: IF L<=0 GOTO 1140 
280 GOTO 130 

290 Z=PEEK(RT+T)+ZZ: ZZ=INT(Z/20> 

:C=Z+1-ZZ*20:Z=Z+ZZ 

300 ZZ=INT(Z/6> :A=Z+1-ZZ*6:Z=Z+Z 

Z 

310 ZZ=INT ( Z/ <9— A) ) : B=Z+2— ZZ* (9— 
A) : Z=Z+ZZ 

320 T*T+UZ*=RIGHT*(" "+STR$ <T) 

, 4 ) : Q= 14: GOSUB 440 

330 QQ=QQ-1 i IF QQ=0 THEN GOSUB 3 

50 

340 RETURN 

350 QG=B: LOCATE A*2+l , 18: PRINT" e 
“: LOCATE A*2+l , 19: PRINT "aa" 

360 LOCATE A*2+l , 17: PRINTMID* ( " f 
f fhgf f f f f fhgf f fhgf f f",C, 1)+" " 

370 RETURN 
380 PLAY " 06CF 05 " 

390 IF I=&H67 THEN LOCATE X,Y:PR 
I NT" o" : LOCATE X+l, Y+l:PRINT"p":S 
T=ST+3 : Q=9 : Z*= "p "+STR* (ST > + " " : GO 
SUB 440: RETURN 

400 IF I=&H68 THEN LOCATE X,Y:PR 
I NT" k " : LOCATE X+l , Y+l : PRINT"1 " : H 
=H+3 : Q=7 : Z$=" 1 "+STR$ <H) + " " : GOSUB 
440: RETURN 

410 S=S+100:Q=2:Z*=RIGHT$(" "+ 

STR*(S> ,4) : GOSUB 440 
420 LOCATE X,Y SPRINT" jn": LOCATE 
X+l , Y+l s PR I NT" n" 

430 L=L+5 : Q= 12: Z$=R I GHT $ ( " "+S 

TR*(L) ,3) : GOSUB 440: RETURN 

** 

450 FOR 1=1 TO LEN(Z*): VPOKE BA 
SE <5) +Q*32+24+I , ASC (MID* (Z*, 1,1)) 
.‘NEXT I --RETURN 

460 IF (VPEEK (BASE (5) +X+Y+32) < >& 
H62) OR (Y<3) GOTO 150 
470 Y=Y-3:V=0 

480 PUT SPRITE 0, (X*8, Y*8> , 2+W*2 


> 7i PUT SPRITE 1, (X*8, Y*8) , 10,8:PU 
T SPRITE 2, (X*8, Y*8) , 8, 9: GOTO 150 
490 IF < VPEEK ( BASE ( 5 ) +X+Y*32+96 ) 

< >&H62) OR (Y>12) GOTO 150 
500 Y=Y+3: V=0 

510 PUT SPRITE 0, (X*8, Y*8) , 2+W*2 
, 7: PUT SPRITE 1 , (X*8, Y*8> , 10, 8: PU 
T SPRITE 2, (X*8,Y*8) ,8,9:G0T0 150 
520 IF VOl THEN V=l:PUT SPRITE 

0, (X*8,Y*8) ,2+W*2,4:PUT SPRITE 1, 
(X*8,Y*8) , 10, 5: PUT SPRITE 2, (X*8, 
Y*8) ,8, 6: FOR 1=1 TO 9: NEXT: GOTO 1 
50 

530 IF X>19 GOTO 150 ELSE X=X+2 

540 PUT SPRITE 0, (X*8, Y*8) , 2+W*2 

,4: PUT SPRITE 1, (X*8,Y*8) , 10,5:PU 

T SPRITE 2, (X*8,Y*8> ,8,6 

550 IF ABS ( VPEEK ( BASE ( 5 ) +X+Y*32+ 

64) —&H60) >2 GOTO 900 

560 GOTO 150 

570 IF VO-1 THEN V=-l:PUT SPRIT 
E 0, (X*8, Y*8) ,2+W*2, 1 : PUT SPRITE 

1, (X*8,Y*8> , 10,2:PUT SPRITE 2, (X* 
8, Y*8) , 8,3= FOR 1 = 1 TO 9: NEXT: GOTO 

150 

580 IF X<3 GOTO 150: ELSE X=X-2 

590 PUT SPRITE 0, (X*8, Y*8> , 2+W*2 

, 1 : PUT SPRITE 1 , (X*8, Y*8) , 10, 2: PU 

T SPRITE 2, (X*8,Y*8> ,8,3 

600 IF ABS (VPEEK (BASE (5) +X+Y*32+ 

64) -&H60) >2 GOTO 900 

610 GOTO 150 

620 IF (V=0) 0R(X+V*2<3)0R(X+V*2 
> .19 OR (ABS (VPEEK (BASE (5) +X+V+2+Y 
*32+64 ) — &H60 ) > 1 ) GOTO 1 50 
630 H=H+W*(H.O) : IF ( (W=l ) AND (H>0 
) ) OR (VPEEK (BASE (5) +X+V*2+Y*32+64> 
=&H60) GOTO 690 

640 LOCATE X+V*2, Y: PRINT" ":LOC 
ATE X+V*2, Y+l s PRINT" i j " 

650 PLAY "ce" : FOR 1=1 TO 2:NEXT I 
660 LOCATE X+V*2, Y+l * PRINT" ":L 
0CATEX+V*2, Y+2: PRINT " 9 ’ " 

670 IF (ABS (Y*8— N) < 10) AND (ABS (X* 
8+ V* 1 6— M ) < 1 0 > THEN GOSUB 1010 
680 GOTO ISO 
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690 LOCATE X+V+2, Y: PRINT" "sLOC 
ATE X+V+2, Y+ls PRINT" i j " 

700 PLAY"ce" s FOR 1 = 1 TO 2:NEXT I 
710 LOCATE X+V*2,Y+ is PRINT" ":L 
OC ATE X +' V*2 , Y+2 SPRINT " " 

720 Z*="1"+STR$(H)+" 11 s Q=7s GOSUB 
440 

730 GOTO 150 

740 ’ **************** 

750 IF ( V=0) OR (X+V*2<3) OR (X+V+2) 

>19 OR < ABS (VPEEK (BASE (5) +X+V+2+Y* 

32+64 ) -&H60 ) < 2 ) GOTO 150 

760 ST =ST +W* ( ST >0 ) s I F < ( W= 1 ) AND ( S 

T>0> ) OR (VPEEK (BASE (5) +X+V+2+Y+32+ 

64 ) +&H64 > L I ST 820 

770 LOCATE X+V+2, Ys PRINT” "sLOC 

ATE X +V*2,Y+ls PRINT" i j" 

780 PLAY"ce” s FOR 1 = 1 TO 2s NEXT I 
790 LOCATE X+V+2, Y+l s PRINT" "sL 
OCATE X+V+2, Y+2 s PRINT" dd" 

800 IF ( ABS ( Y+ 8 -N) < 10) AND (ABS (X* 
8+V* 1 6— M ) < 1 0 ) THEN GOSUB 1010 
810 GOTO 150 

820 LOCATE X+V+2, Ys PRINT" "sLOC 
ATE X+V+2, Y+l s PRINT" i j " 

830 PLAY" ce" s FOR 1=1 TO 2SNEXT I 
640 LOCATE X+V*2,Y+1 SPRINT" "sL 
OCATE X+V*2,Y+2sPRINT"aa" 

050 Z»«"p"+STR»(ST)+" "IQ-91G0SU 
B 440 

860 GOTO 150 

870 IF H+ST =0 THEN W=OsGOTO 150 
880 W*- 1 +(W= 0 > 

890 V=Os PUT SPRITE 0, (X* 8 , Y* 8 ) , 2 
+W+2, 7* PUT SPRITE 1 , <X* 8 , Y* 8 > , 10, 
8 s PUT SPRITE 2, (X* 8 ,Y* 8 > ,8,9*&0T0 
150 

900 * ****************** 

910 F=0 

920 Y=Y+1 s F=F+ 1 s FOR *1=0 TO 2sVP0 

KE VDP (5) *128+4*1 , Y*8* NEXT I 

930 IF Y>16 GOTO 1140 

940 IF ABS (VPEEK (BASE (5) +X+Y+32+ 

64) — &H60) >1 GOTO 920 

950 GOTO 150 

960 * ****************** 

970 PUT SPRITE 3* (M»N) , 13, 10SPLA 
Y"o2do5" 

980 L-L-SGN (L) *20* Z9-RIGHT* ( " 
"+STR*(L) ,3) :Q=12s GOSUB 440 
990 M= 0 sN= 03 Ml=X* 8 sNl=Y *8 
1000 GOTO 200 
1010 * ****************** 

1020 PUT SPRITE 3, (M, N) , 15, 10* PL 
AY"a" s FOR 1 = 1 TO 10 s NEXT I 
1030 ME=ME— 1 s IF ME=0 THEN ME=3sh 
=0 « N«0 s M 1 =X *8 s N 1 =Y *8 s S=S+ 1 00 
1040 S=S+10sZ*=RIGHT*(" "+SRT* 
(S) ,.4) 3Q=2 sGOSUB 440 
1050 RETURN 

1060 PLAY"18o5gr32gd4dgaa+r32a+g 
4ga+o6cl 16ddddddddd" 

1070 IF PLAY (0)00 GOTO 1070 
1080 FOR 1 = 1 TO 32s PRINTS NEXT I 
1090 PUT SPRITE O, (80, 80) , 2, 1 : PU 
T SPRITE 1, (80,80) , 10, 2: PUT SPRIT 
E 2, (80,80) ,8, 3s PUT SPRITE 3, (0,0 

) , o , o 

1100 LOCATE 5, 10 * PRINT"qr" : LOCAT 

E 5, ll:PRINT ,, slu ,, :PRINT"^aaaaaaaa 

aaaaaaaaaaaa " 

1110 LOCATE 1 , 7 SPRINT "EXTRA BONU 
S 500 PUNTOS" 

1120 FOR 1 = 1 TO 1000 s NEXT I s S=S+ 
3000s R=R- (R<3) s X=3s Y= 8 s V=Os W=Os T= 
0 

1130 PUT SPRITE 0, (24,64) ,2,7s PU 
T SPRITE 1 , (24,64) , 10, 81 PUT SPRIT 
E 2, (24,64) ,8, 9s GOTO 110 

I 140 * ********************* 

1150 PLAY "o6ed+dc+co5ba+agr8dr8g 

II 

1160 IF P=0 GOTO 1230 

1170 Xl=Os FOR 1 = 16 TO 10 STEP -1 

s FOR J=21 TO 5 STEP -2 

1180 IF (X1=0) AND (VPEEK (BASE (5 


>+I*32+J)=S<H61) THEN X1=J*Y1=I 
1190 NEXT JsNEXT I = X=X 1 : Y=Y1-2 s L 
=100* Z*=" 100" sQ=14s GOSUB 440 
1200 V=Os W=Os PUT SPRITE 0, (X*8,Y 
*8) ,2,7s PUT SPRITE 1 , ( X*8, Y*8> , 10 
,8s PUT SPRITE 2, (X*8, Y*8) , 8, 9 
1210 P=P-1 
1220 GOTO 130 

1 230 ’ ******************* 

1240 FOR 1 = 1 TO 12s LOCATE 0 , 24 sP 
RINTs NEXT 

1250 PRINT" TERM I NO EL JUEGO 


1260 FOR 1 = 1 TO 17s LOCATE 0,24sP 
RINTSNEXT 

1270 IF HS<S THEN HS=S 
1280 FOR 1=1 TO 1 OOOs NEXT I: GOTO 
60 

1290 9 Hoff***************** 

1300 FOR 1=0 TO 5s PUT SPRITE I,< 
0,0) ,0,0SNEXT I 

1310 CLSs LOCATE 0,24s PRINT" LOA 
D MSX" SPRINT 

aaa a" 

a a o a" 

aaa p aa a a a a" 


a a aa a a 11 

a aa a a aaa" 


1320 PRINT" 

1330 PRINT" 

1340 PRINT" 

1350 PRINT" 

1360 PRINT" 

1370 PRINT" 

1380 PRINT" 

1390 FOR 1 = 1 TO 7 s PR I NT s PR I NT s NE 
XTI 

1400 VDP ( 1 ) =VDP ( 1 ) OR is PUT SPRI 
TEO, (24,88) ,2,7 

1410 PUT SPRITE 1, (24,88) , 10, 8sP 
UT SPRITE 2, (24,88) ,8,9 
1420 IF INKEY*=" " THEN VDP(1)=V 
DP ( 1 ) AND 254 s RETURNS ELSE GOTO 14 
20 

1440 Z9=" SCORE" s Q=1 s GOSUB 440 
1450 Z*=RIGHT*(" "+STR* (S) , 4) s 
Q«2s GOSUB 440 

1460 Z*="TOPE "sQ=4s GOSUB 440 
1470 Z*=RIGHT*(" "+STR* (HS) , 4) 
s Q=5s GOSUB 440 

1480 Z*="k" IQ»6« GOSUB 440sZ*="l" 
+STR*(HN)+" " s Q=7s GOSUB 440 
1490 Z*="o"sQ=8s GOSUB 440sZ*="p" 
+STR*(ST)+" " s Q=9s GOSUB 440 
1500 Z9-" VIDAS" i Q— 1 1 s GOSUB 440s Z 
*=RIGHT*(" "+STR^(L) ,3) SQ=12SG0 
SUB 440 

1510 LOCATE 0,24 SPRINT" aaaaaa 
aaaaaa" 

1520 PRINT" be be" 

1530 PRINT" be be" 

1540 PRINT" aaaaaaaaaaa aaa" 

1550 PRINT" be" s PRINT" 

b c " s PR I NT " aaaaaaaa 


1560 PRINTS PRINT* PRINT" 
aa" 

1570 X=3SY=1 is RETURN 
1580 ’ a******************* 

1590 CLS* LOCATE 0, 1 1 s PRINT"Esper 
a, se estan def iniendo los carac 
teres" 

1600 FOR 1=0 TO 60s FOR J=0 TO 7s 
Z=VPEEK ( 32*8+ I *8+ J) s P0KE&HD800+I* 
8+J, ZOR ( Z /2 ) i P0KE&HDB80+ I +8+ J , (15 
+ ( J >4 ) +8 ) * 1 6+ 1 s NEXT JsNEXT I 
1610 RESTORE 1770 s FOR 1=64 TO 85 
s FOR J=0 TO 7 s READ A$: P0KE&HD800+ 
I+8+J, VAL ( "&h"+A*) * NEXT JsNEXT I 
1620 RESTORE 1840 s FOR 1=64 TO 85 
IFOR J=0 TO 7 s READ A*s P0KE&HDB80+ 
I*8+J, VAL ( "&h"+A$) s NEXT JsNEXT I 
1630 I =0* RESTORE 1710 
1640 READ A$s POKE&HDFOO+ 1 , VAL ( "Sc 
h"+A>) i IF A*<>"C9"THEN I=I+lsGOTO 
1640 

1650 RESTORE 19101 FOR 1-1 TO 11* 

FOR J=0 TO 31 s READ A*sS*=S* 

+CHR*(VAL("lch"+A*) ) sNEXT J 
1660 SPRITES ( I ) =S$s NEXT I 
1 670 DEFUSR=&H7E : A=USR ( O ) 

1 680 DEFUSR=&HDFOO s A=USR ( 0 ) s GOTO 
50 

1 690 DEFUSR=&H7E s A=USR ( 0 ) 

1 700 DEFUSR=&HDFOO s A=USR ( O ) 

1710 * ******************* 

1720 DATA 21, 00, D8, 11,00,01,01,0 
0, 03, CD, 5C, 00 

1730 DATA 21, 00, D8, 11,00,09,01,0 
O , 03 , CD , 5C , 00 


1740 DATA 21, 80, DB, 11,00,21,01,0 
0, 03, CD, 5C, 00 

1750 DATA 21, 80, DB, 11,00,29,01,0 
0, 03, CD, 5C, 00 

1760 DATA 3E, 77, 21, 00, 30, 01,00,0 
8, CD, 56, 00, C9 
1770 * +++»*c*>*e>»e»»eH<**»*es*e*»*e*»*e>*e 
1780 DATA 00 , 00 , 40 , 04 , 65 , FF , FF , O 
O , 00 , 00 , 40 , 04 , 65 , FF , FF , OO , IF, 18, 1 
8, 18, IF, 18, 18, 18, F8, 18, 18, 18, F8, 1 
8, 18, 18 

1790 DATA 00,00,00,00,00,00,00,0 
O, AB,8B,8B,93,83,93,83,FF,00,00,0 
O, 00, 00, 7E, C7, 93, 00,00,00,00,00,7 
E, C7 , 93 

1800 DATA 00, 00, 00, 00, 00, 7E, C7, 9 
3, 02, 38, 5D, BF, BF, FB, FB, 3D, 00, 39, D 
C,FE, EE, EE, EE, DC, 00, 00, 00, 00, 18,7 

E, 7E,7E 

1810 DATA 18,18,18,18,18,18,00,0 
O, 00, 00, 00, 00, 00, 18, 3C, 3C, 7E, 7A, 7 
A, A7, 3C, 34, 18,00,00,00,00,00,00, 1 
O, 10,38 

1820 DATA 38, FE, 7C, 38, 7C, 6C, 44,0 
0,01, 03,03, 03, 03, 07,07, 07, F8, FC, F 
4, F6, F7 , FC, F8, F8, OF , OF , OF , IF, IF, 3 

F, 7F, FF 

1830 DATA FC, FC, FC, FC, FC, FC, F8, F 
8 , 80 , 80 , 80 , 80 , 80 , 80 , 80 , 80 
1840 ’ ******************* 

1850 DATA 97,97.97,97,97,97,97,1 
1,97,97,97,97,97,97,97, 11, FI, 91, 9 
1.91, FI, 91, 91, 91, FI, 91, 91, 91, FI, 9 


1,91,91 

I860 DATA 11,11,11,11,11,11,11,1 
1 , CE , CE , CE , CE , CE , CE , CE , CE , C 1 , C 1 , C 
1, Cl, Cl, Cl, CE ,CE.C1,C1,C1,C1,C1,C 
1 , CE, CE 

1870 DATA Cl, Cl, Cl, Cl, Cl, Cl, CE,C 
E, FI, FI, FI, FI, FI, FI, 71, 71, FI, FI, F 
1, FI, FI, FI, 71, 71, 61, 61, 61, 61, 61, 4 


1,41, 
1880 
1 7 A1 J 

l'Al 

1,F1, 

1890 

1,B1, 

i»ll 

1,51, 

1900 

1 , 6 1 f 

191© 


DATA 61,61,61,61,61,61,61,6 
A1,A1,A1,A1,A1,A1,A1,A1,A1,A 
A1,A1,A1,A1,F1,F1,F1,F1,F1,F 
FI 

DATA FI, FI, Fi, FI, FI, FI, FI, F 
B1,B1,B1,B1,51,51,51,B1,B1,B 
B1 . B7, B7, 57, 51 , 51 , 51 , 51 , 51 , 5 
51 

DATA 51, 5b, 5b, 51, 51, 51, dl, 5 
61,61,61,61,61,61,61 
+++***************** 


1920 DATA 00,03,07,01,00,00,00,0 
Of 00, 03, 03, 00, 02, 03, 00, 00, 7c, fc, f 
6, f2, 78, 78, 78, 70, 00, a8, f 8, 3c, 7c, f 
#, 00,00 

1930 DATA 00, 00, 00, 00, 00, 05, 0d,0 

7.07.00. 00.01.01.00.00.00.00.00.0 
0, 00,00, 80, 80, 80, 80,00,00,80,80,0 
0 , 00,00 

1940 DATA 00, 00, 00, Oe, Of ,00,00,0 
0,00, 00, 38, 2e , 20, 00,00,00,00,00,0 
O, OO, 80, 00, 00,00,78,50,00, 40, 00, O 
0,70, fO 

1950 DATA 3f,3f,6f,4f, le, le, le, 0 
#,00, 15, If, 3c, 3e, 7f , 00, 00, 00, cO, e 
0,80, 00, 00, 00,00, 00, cO, cO, 00, 40, c 
0 , 00,00 

1960 DATA 00,00,00,00,00,01,01,0 

1.01.00. 00.01.01.00.00.00.00.00.0 
O , 00, 00 , AO , bO, eO, eO, 00 , 00 , 80 , 80 , 0 
0 , 00,00 

1970 DATA 00,00,00,00,01,00,00,0 
0, 1#, Oa, 00, 02, 00,00, Oe, Of , 00, 00, 0 
0,70, fO, 00, 00, 00, 00, 00, lc, 74, 04,0 
0 , 00,00 

1980 DATA 03, Of , 1 f , 3c, 28, 08, 08, O 
© f 00 9 07 , 07 , 07 , 0 f , 1 f , 00 , 00 , cO , #0 , f 
0,18, 08, 08, 08, 00, 00, f 8, eO, 60, e8, f 
8 , 00,00 

1990 DATA 00,00,00,00,00,02,06,0 
3 p 03 r 00 1 08 , 08 , 00 , 00 » 00 , 00 , 00 , 00 , 0 
0, 00, 00, aO, bO, eO, eO, 00, 04, 04, 00, 0 
0 , 00,00 

2000 DATA 00,00,00,03,07,04,00,0 
C , 04, 00, 00,00, 00, 00, 07, Of , 00, 00, O 
O, eO, fO, 10,00, 18, 10,00, 18,9a, 10,0 
0,70,78 

2010 DATA 38,44,42,42,21, lb, 07,0 
f ,08,0e, le,2f ,2f , 06, 03,00, Oe, 11,2 
1,21,42, «c, fO, f 8, 08, b8, be, fa, fa, 3 
0 , # 0 , 00 

2020 DATA 00,00,00,00,00,01,03,0 

3,03,01,00, 38,74, 62,60, 00,00, 00,0 
O, 00, 00, cO, eO, eO, eO, cO, 80, 8e, 17, 2 
3,03,00 



W* I profesor de Quimica y 
Efr Merceologia, Roberto Emilio 
Gaguine, de la Escuela 
Nacional de Educacion TecnicaN 0 I de 
San Jose de la Quintana, nos ha hecho 
llegar un interesante programa creado 
por el. 

Su experiencia en programas aplicados 
a la educacion puede ser interesante pa- 
ra los lectores de nuestra revista. 
Roberto envio este programa para com- 
partirlo con todos los lectores y para pe- 
dir nuestra opinion sobre el mismo. 
Nos parecio muy completo, claro y que 
cumple el objetivo de reforzar los co- 
nocimientos sobre el tema. Sabemos 
que no es sencillo dar una clase sobre 
“Ecuaciones”, pero esta es bastante 
completa y didactica. 

Daremos una sugerencia que facilitara 
el manejo de los programas. 

Es conveniente colocar “mensajes acla- 
ratorios” en la pantalla sobre el siguiente 
paso que debe cumplir el operador pa- 
ra continuar con la ejecucion del 
programa. 

Por ejemplo, en este programa, para pa- 
sar de explicacion se debe presionar 
cualquier tecla. 

Seria conveniente colocar un cartel pa- 
ra sacar la duda de con que se debe 
continuar. 

Otro detalle que se podria mejorar es- 
ta la opcion de “Despeje de la incogni- 
ta”. Al despejar correctamente la com- 
putadora deberia aclararlo y pasar auto- 
maticamente al menu principal. 

Pero estos son solo detalles que no ha- 
cen desmejorar el programa. 
Destacamos la claridad en la explicacion 
de los conceptos. 

Realmente es un programa muy bien 
pensado y disenado. 

Aclaramos a los lectores que tiene sie- 
te opciones donde se explican los con- 
ceptos basicos sobre las “ecuaciones” 
ademas de graficarlas. 


CLASE DE 
ECUACIONES 


Clase: Educativo 


COMO EJEHPLO 
V/AMOS A l>ESPE JAR B 



Por ultimo agradecemos a Roberto por 
su programa, manteniendo abierta la co- 
municacion con el. Nos interesan sus du- 
das, sugerencias, comentarios y progra- 
mas (como tambien los de los demas lec- 
tores, porque ellos pueden ayudar a to- 
dos los usuarios de las MSX). 


X2: segunda raiz para la misma opcion 
A: coeficiente del termino para la ulti- 
ma opcion 

F: coeficiente del termino lineal 
C: termino independiente de la ecuacion 
para la misma opcion 


VARIABLES 1MP0RTANTES? 

A$: almacena la opcion elegida del me- 
nu principal 

B: valor de b para la opcion “Resolu- 
cion de ecuaciones” 

C: valor de c para la misma opcion 
D: valor de d para la opcion anterior 
X: resultado de x 

XI: primera raiz de la opcion “Reso- 
lucion de una ecuacion” 


ESTRUCTURA PEL PROGRAMA: 

50-1 10 : pantalla inicial 
120 - 280 : menu principal 
290 - 350 : procesos para la primera 
opcion 

360 - 560 : segunda opcion 
570 - 840 : tercera opcion 
850 - 2020 : cuarta opcion 
2030 - 3020 : quinta opcion 
3030 - 3460 : sexta opcion 
3470 - 3830 : septima opcion 


10 REM Ht************************ 
**** 

20 REM PROFESOR ROBERTO E GAGU 
INE 

30 REM ************************* 
**** 

40 REM ******** ECUACIONES ***** 
**** 

50 SCREEN 3: COLOR 4,0,0:CLS 
60 OPEN "GRP: " AS# 1= KEY OFF 


70 PLAY " L4CEDFDECREF GAGFER " 

80 PRESET (30,20): PR I NT# 1 , "ECUA" 
90 PRESET (105, 80) :PRINT#1, ,, CI0" 
100 PRESET (145, 140) :PRINT#1, "NES 

II 

110 IF INKEY$=" " THEN 110 
120 CLS: SCREEN 0: COLOR 1,15,15 
130 LOCATE 4,0 SPRINT" ECUACIONES" 
140 LOCATE 4, 1 SPRINT 


150 LOCATE 4, 3 s PR I NT "MENU "s BEEP 
160 LOCATE 4, 5s PRINT" 1 CONCEPTO" 
s BEEP 

170 LOCATE 4,7: PR I NT " 2 6RAD0 DE 
UNA ECUACION!' s BEEP 
180 LOCATE 4, 9s PRINT"3 CLASIFICA 
CION DE LAS ECUACIONES "s BEEP 
190 LOCATE 4,11s PRINT"4 DESPEJE 
DE LA INCOGNITA" : BEEP 





200 LOCATE 4, 13: PR I NT “5 RESOLUCI 

ON DE ECUACIONES DE" : BEEP 

210 LOCATE 4, 14: PRINT” ler .GRAD 

0 CON UNA INCOGNITA": BEEP 

220 LOCATE 4, 16:PRINT"6 RESOLUCI 

ON DE ECUACIONES DE" : BEEP 

230 LOCATE 4, 17: PR I NT" 2d o. GRAD 

0 CON UNA INCOGNITA": BEEP 

240 LOCATE 4,19:PRINT"7 RECONSTR 

UCCION DE UNA ECUACION CUAD 

RATICA . " : BEEP 

250 A*= INKEY* 

260 IF A*=“ " THEN 250 

270 IF A*<"1“ OR Ai>"7“ THEN 250 

280 ON VAL<A*> GOTO 290,360,570. 

850 , 2030 , 3030 , 3470 

290 CLS i SCREEN 0 

300 LOCATE 5, 5: PR I NT “ CONCEPTO DE 
ECUACION": BEEP 
310 LOCATE 5, 6: PR I NT 

HHMHHHHHHB 11 

320 IF INKEY*=" " THEN 320 
330 LOCATE Of 1 0 : PR I NT " LL AMAREMOS 
ECUACION, A LAS IGUALDADES" : BEEP: 
LOCATE O, 12:PRINT"MATEMATICAS QUE 
SOLO SE VERIFICAN PA- ": BEEP: LOCA 
TE O, 14:PRINT"RA DETERM I NADOS VAL 
ORES ATRIBUIDOS A ": BEEP: LOCATE 0 
, 1 6 : PR I NT " SUS I NCOGN I TAS , DES I GN AD 
ASfAQUI,CON X . " : BEEP 
340 IF INKEY*="" THEN 340 
350 GOTO 120 
360 CLS: COLOR 1,15,15 
370 LOCATE 4, 2: PR I NT" GR ADO DE UN 
A ECUACION": BEEP 
380 LOCATE 4,3: PR I NT " 

390 LOCATE 0,6: PR I NT "EL GRADO DE 
UNA ECUACION ESTA DADO POR EL 
MAYOR EXPONENTE DE SUS INCOGNITAS 
. " : BEEP 

400 IF INKEY*="" THEN 400 

410 LOCATE 4, 10:PRINT"EJEMPL0S: " 

: BEEP: LOCATE 4, 11:PRINT" |- 1- 1- 1- 1- 1- 1- 
420 LOCATE 4, 1 1 : PRINT" UJ-LLLLL-L* 1 
430 LOCATE 4, 15: PRINT"8X 1 - 5 + 3 
X = 16" 

440 IF INKEY*="" THEN 440 
450 LOCATE 0, 13: PR I NT "ECUACION D 
E ler. GRADO CON 1 INCOGNITA" : BEEP 
460 IF INKEY*="" THEN 460 
470 LOCATE 4, 19: PRINT"5X 2 - 12 + 
2X = X 2 - 3" 

480 IF INKEY*="" THEN 480 

490 LOCATE 0, 17: PRINT "ECU AC I ON D 

E 2d o. GRADO CON 1 INCOGNITA" : BEEP 

500 IF INKEY*=" " THEN 500 

510 LOCATE 4, 24: PRINT"X + 3 = 2X 

ii 

520 LOCATE 5, 21 : PRINT"3" 

530 IF INKEY*=" " THEN 530 

540 LOCATE 0, 20: PR I NT "ECU AC I ON D 

E 3er .GRADO CON 1 INCOGNITA" : BEEP 

550 IF INKEY*="" THEN 550 

560 GOTO 120 

570 CLS: COLOR 1,15,15 

580 LOCATE 2, 2: PRINT" CL ASIFICACI 

ON DE LAS ECUACIONES": BEEF 

590 LOCATE 2 , 3 : PR I NT " mmmmammmm 


600 IF INKEY*="" THEN 600 

610 LOCATE 0,6: PR I NT " LAS ECUACIO 

NES SE CLASIFICAN EN ENTE R AS, FRA 

CCIONARIAS E IRRACIONALES . " : BEEP 

620 IF INKEY*="" THEN 620 

630 LOCATE 0, 12: PR I NT "LA ECUACIO 

N ES ENTERA CUANDO LAS IN- CONG IT 

AS ESTAN AFECTADAS POR LAS OPE RA 

Cl ONES DE SUM A, REST A Y MULT I PLICA 

- CION.": BEEP 

640 IF INKEY* 3 *" " THEN 640 

650 LOCATE 4, 18: PRINT"EJEMPLO: " 

660 LOCATE 4, 19: PRINT" 


670 LOCATE 4, 21 : PRINT"4 i‘5X = 

1 +48" 

680 LOCATE 13, 22: PRINT" j-J-h" s LOCA 
TE 14, 23 : PR I NT " 3 " 11 

690 IF INKEY*=" " THEN 690 
700 CLS: LOCATE 0, 4: PR I NT "UN A ECU 
AC I ON ES FRACC I ONAR I A CUANDO POR 
LO MENOS UNA DE LAS INCOGNITAS 
FIGURA COMO D I VISOR BEEP 
710 IF INKEY*="“ THEN 710 
720 LOCATE 4,11: PRINT"EJEMPLQs " 
730 LOCATE 4, 12: PRINT" h h h h h h h" 

740 LOCATE 4, 14: PRINT" 3 4- 8X 

5 = 34" 

7*50 LOCATE 4, 15: PRINT" 

760 LOCATE 4, 16* PRINT" X " 

770 IF INKEY*=" " THEN 770 
780 CLS: LOCATE O, 4: PR I NT "UN A ECU 
AC I ON ES IRRACIONAL CUANDO PORLO 
MENOS UNA INCOGNITA FIGURA BA JO 
SIGNO RAD I CAL.": BEEP 
790 IF INKEY*=" " THEN 790 
800 LOCATE 4, 10: PR I NT "POR EJEMPL 
O: " 

810 LOCATE 4,11: PRINT" 

^20 LOCATE 4, 14: PRINT" 1 - JX = 8 
- 16" 

830 IF INKEY$=" “ THEN 830 

840 GOTO 120 

850 CLS : COLOR 1,15,15 

860 LOCATE 0,2: PRINT"REGLA EN QU 

E SE BASA LA RESOLUCI ON DEECUACIO 

NES DE ler .GRADO CON UNA I NCOGN IT 

A . " : BEEP 

870 IF INKEY*=" " THEN 870 
880 LOCATE 4, 6: PRINT"REGLA 1" 

890 LOCATE 4, 7: PRINT" 

900 IF INKEY*=“" THEN 9o6 
910 LOCATE O, 8: PRINT"SI SE SUMA 
O SE RESTA UN MISMO NUMEROA AMBOS 
MIEMBROS DE UNA ECUACION, SE OBT 
IENE OTRA ECUACION EQUIVALENTE A 
LA DADA . " : BEEP 
920 IF INKEY*=“ " THEN 920 
930 LOCATE 4, 13: PR I NT "SEA LA ECU 
AC ION: " 

940 LOCATE 4, 14= PRINT" f- h f"h hhhhhh 

950 LOCATE 4, 16:PRINT"8X = 2X + 

7 CUYA RAIZ ES X=7/6" 

960 IF INKEY*=" " THEN 960 
970 LOCATE 0, 18: PRINT"SI A AMBOS 
MIEMBROS LE SUM AMOS UN MISMO NUM 
ERO, 3 POR EJEMPLO, OBTENEMOS: ":BEE 
P 

980 LOCATE 4, 21 : PRINT"8X +3=2 
X + 7 + 3" 

990 IF INKEY*=" " THEN 990 
1000 LOCATE 0,23: PR I NT "QUE ES EQ 
UIVALENTE A LA PRIMERA PUES SU RA 
IZ ES X=7/6 

1010 IF INKEY*=" “ THEN 1010 
1020 CLS: LOCATE 4,0: PRINT"TOMEMO 
S EL EJEMPLO ANTERIOR” - 
1030 LOCATE 4,2:PRINT"8X = 2X + 

7 " : BEEP 

1040 LOCATE 0, 4: PRINT"SI A ESTA 
ECUACION ANTERIOR, LE RESTA-MOS,PO 
R EJEMPLO 7, A AMBOS MIEMBROS" 

1050 IF INKEY*="" THEN 1050 
1060 LOCATE O, 8: PRINT"8X -7=2 
X + 7 - 7": BEEP 
1070 IF INKEY$=" " THEN 1070 
1 080 LOCATE 0 , 1 0 : PR I NT " REDUC I END 
O +7 Y -7 EN EL SEGUNDO MIEMBRO, N 
OS QUEDA:" 

1090 LOCATE O, 13:PRINT"8X - 7 = 
2X":BEEP 

1100 IF INKEY*="" THEN 1100 
1110 LOCATE 4 , 1 5 : PR I NT " ********* 
***" 

1120 LOCATE 4, 16: PRINT" CONCLUSI 
ON" 

1130 LOCATE 4, 17: PRINT"********* 

sfofofc '* 

1140 LOCATE O, 19:pRINT"TODO NUME 
RO QUE FIGURA SUM ANDO EN UN MIEMB 
RO DE UNA ECUACION, PUEDE PASAR A 
L OTRO MIEMBRO REST ANDO Y RECIPRO 
CA-MENTE, SI ESTA RESTANDO PUEDE P 
ASAR SUMANDO AL OTRO MIEMBRO.": BE 
EP 

1150 IF INKEY$=" " THEN 1150 ' 

1160 CLS: LOCATE 4, 0: PRINT“REGLA 
2 " 

1170 LOCATE 4,1: PRINT" 


1180 LOCATE 0,3: PRINT”SI SE MULT 
I PL I CAN 0 SE DIVIDEN AMBOS MIEMBR 
OS DE UNA ECUACION POR UN MISMONU 
MERO 0 FACTOR, QUE NO SEA NULO.SE 
OBTIENE OTRA ECUACION EQUIVALENTE 
A I A F1AT1A 11 

1190 IF INKEY*=" " THEN 1190 
1200 LOCATE 4, 10: PRINT "POR EJEMP 
LO: " 

1210 LOCATE 5, 12: PRINT"5X + 2 = 

7X " 

1220 IF INKEY*=" " THEN 1220 
1230 LOCATE 0, 14: PRINT "ES UNA EC 
UACION DE RAIZ X=1 
1240 IF INKEY*=" " THEN 1240 
1250 LOCATE 0, 16: PRINT"SI A AMBO 
S MIEMBROS LOS MULTUPLICAMOSPOR U 
N MISMO NUMERO, POR EJEMPLO 3,0B-T 
ENDREMOS OTRA ECUACION EQUIVALENT 
E, OSEA DE RAIZ X=1":BEEP 
1260 IF INKEY*=" " THEN 1260 
1270 LOCATE 0, 21 : PRINT" (5X + 2). 

3 = 7X .3" : BEEP 
1280 IF INKEY*=" " THEN 1280 
1290 CLS: LOCATE 0,1: PR I NT " TOMEMQ 
S POR EJEMPLO: " 

1300 IF INKEY*=" " THEN 1300 
1310 LOCATE 4,3: PRINT"7X -2=5 

1320 LOCATE 4,4:PRINT" hhhhhh" 

1330 LOCATE 4, 5: PRINT" 6* : BE 

EP 

1340 IF INKEY*=" " THEN 1340 
1350 LOCATE 0, 7: PRINT"MULTIPLICA 
NDO A AMBOS MIEMBROS POR 6 SE OBI 
IENE: " 

1360 IF INKEY*=" " THEN 1360 
1370 LOCATE 4, 10: PRINT"7X - 2 .6 
= 5.6" 

1380 LOCATE 4, llsPRINT" hhhhhb" 
1390 LOCATE 4, 12: PRINT" i 
BEEP 

1400 IF INKEY*=" " THEN 1400 
1410 LOCATE 0, 14:PRINT"SIMPLIFIC 
ANDO OBTENEMOS:" 

1420 LOCATE 4, 15: PRINT"7X - 2 = 

5. 6": BEEP 

1430 IF INKEY*=" " THEN 1430 
1440 LOCATE 4, 17: PRINT"********* 

4c**" 

1450 LOCATE 4, 18: PRINT" CONCLUSI 
ON" 

1460 LOCATE .4, 19: PRINT"********* 
***" 

1470 LOCATE O, 21 : PRINT"SI UN NUM 
ERO ESTA MULT I PL I C ANDO A TO-DO UN 
MIEMBRO EN UNA ECUACION, PUEDE P 
ASAR AL OTRO MIEMBRO COMO DIVISOR 
Y RECIPROCAMENTE, SI ESTA DIVIDI 
ENDO A TODO UN MIEMBRO PUEDE PAS A 
R MULT I PL I -C ANDO A TODO EL OTRO" 
1480 IF INKEY*=" " THEN 1480 
1490 CLS: LOCATE 4, 0: PRINT"CONSE 
CUENCIA" 

1500 LOCATE 4, 1 : PR I NT "■■■■■■■■■ 

1510 LOCATE 0, 3: PRINT"SE PUEDE C 
AMBIAR EL SIGNO A TODOS LOSMIEMBR 
OS DE UNA ECUAC I ON . ESTO SE VERIFI 
CA MULT I PL I C ANDO A AMBOS MIEMBROS 
POR (— 1 ) " : BEEP 

1520 LOCATE 1 1 , 10: PRINT"-2X + 4 
= -10" 

1530 LOCATE 4, 13: PRINT" (-2X + 4) 
„<-l> = (-10) .(-1) 

1540 LOCATE 12, 16: PRINT"2X - 4 = 
10": BEEP 

1550 IF INKEY*=" " THEN 1550 
1560 COLOR 1, 10, 10: CLS: SCREEN 2, 

3 

1570 PRESET ( 15, 0) :PRINT#1, "COMO 
EJEMPLO i" 

1580 PRESET (15, 10) : PRINT#1 , " VAMO 
S A DESPEJAR B" : BEEP 
1590 PRESET (5, 30) : PRINT#1 , "Para 
ello utilizamos el cursor." 

1600 PRESET (15, 180) : PRINT# 1 , "Pul 
sa M para retorno al MENU" 

1610 PRESET (20, 100) :PRINT#1, "■■■ 
HHHHHBBBB 11 

1620 PRESET (120, 100) : PRINT#1 , "=" 
1630 PRESET (130, 100) : PRINTttl , " Hi 

1640 PRESET ( 60 , 88 ) : PR I NT # 1 , " X " 
1650 IF INKEY*=" " THEN 1650 
1660 JJ=JJ+1 

1670 IF JJ=1 THEN 1680 ELSE 1730 


1680 A*=A*+CHR*(&H18) 

1690 B*=B*+CHR*(&H3C> 

1700 C*=C*+CHR*(&H66) 

1710 D*K;*:E*=E*+CHR*(&H7E> 

1720 F*=E$:G*=C*:H$=C* 

1 730 SPR I TE* ( 0 ) =A*+B*+C*+D*+E*+F 
*+G*+H*:IF JJ=1 THEN 1740 ELSE 18 
00 

1 740 AQ*=AQ*+CHR* ( &HFE ) 

1750 AW*=AW*+CHR*(&HFF) 

1 760 AE$=AE*+CHR* ( &HE7 ) 

1770 AR*=AW*: AZ$=AW$ 

1780 AT*=AE* 

1790 AY*=AW*: AU*=AQ* 

1800 SPRITE* ( 1 ) =AQ*+AW$+AE*+AR*+ 
AZ*+AT$+AY*+AU$: IF JJ=1 THEN 1810 
ELSE 1840 
1810 X=27 : Y=77 
1 820 A AS=A A*+CHR* ( &HFE ) 

1 830 BB*=A A* : CC*=AA* : DD*=DD*+CHR 
* ( &HE0 ) : EE*=DD* s FF*= A A* : GG*=AA* : H 
H*=AA* 

1840 SPRITE* (2) =AA*+BB*+CC*+DD*+ 
EE*+FF*+GG*+HH* 

1850 C=STICK (0) 

1860 PUT SPRITE 0, (X,Y),15 
1870 PUT SPRITE 1,(82, 79), 6 
1880 PUT SPRITE 2, (160, 79), 4 
1890 IF C= 1 THEN Y=Y-1 
1900 IF C=2 THEN X=X+1:Y=Y-1 
1910 IF C=3 THEN X=X+1:IF X=100 
THEN COLOR 10 . 1 , 10: PSET <60, 88) : PR 
I NT # 1 , " X " : PSET (20, 100) :PRINT#1, "■ 
"■■■■■■": COLOR 1,10,10 
1920 IF C=4 THEN X=X+l:Y=Y+l 
1930 IF C=5 THEN Y=Y+1 
1940 IF C=6 THEN X=X-l:Y=Y+l 
1950 IF C=7 THEN X=X-1 
1960 IF C=8 THEN X=X-1: Y=Y-1 
1970 IF X>138 AND Y>100 THEN 198 
0 ELSE 1990 

1980 PRESET <5, 170) :PRINT#1, "Lo e 
stas haciendo b i en, con t i n»ia" 

1990 M*= INKEY* 

2000 IF THEN 1850 

2010 ON VAL (M*) GOTO 2020 

2020 GOTO 120 

2030 CLS: SCREEN O 

2040 PR I NT "PROGRAM A PARA RESOLVE 

R UNA ECUACION " 

2050 PR I NT " DE PRIMER GRADO CON U 
NA INCOGNITA" 

2060 IF INKEY*=" " THEN 2060 
2070 LOCATE 5,4 

2080 PRINT"POR EJEMPLO LA ECU AC I 
ON: •• 

2090 LOCATE 5,6 

2100 PRINT" (x + b) -c = d" 

2110 IF INKEY*=" " THEN 2110 

2120 LOCATE 9,8 

2130 PRINT" x + b = d " 

2140 LOCATE 17,9 
2150 PRINT" [-F" 

2160 LOCATE i7, 10 
2170 PRINT" c" 

2180 IF INKEY*=" " THEN 2180 
2190 LOCATE 13,12 
2200 PRINT" x = d b" 

2210 LOCATE 17,13 
2220 PRINT" Ff- F" 

2230 LOCATE 17; 14 
2240 PR I NT "c" 

2250 IF INKEY*="" THEN 2250 
2260 LOCATE 13,16 
2270 PR I NT "x = " 

2280 IF INKEY*=" " THEN 2280 

2290 LOCATE 5,19 

2300 I NPUT " I NGRESE b:";B 

2310 LOCATE 5, 21 : INPUT" I NGRESE c 

5 " • C 

2320 LOCATE 5, 23: INPUT" I NGRESE d 
: " 5 D 

2330 X=(D/C)-B 

2340 LOCATE 16, 15:PRINT X 

2350 IF INKEY*=" " THEN 2350 

2360 COLOR 1,3,3 

2370 CLS : SCREEN 2: COLOR 1,3,3 

2380 PRESET <5, 10) : PRINT#1 , "GRAFI 

CO DE LA FUNCI ON : " 

2390 PRESET (5,20) :PRINT#1, "■■■■ 


2400 PRESET < 100, 28) s PRINT#1 , " (X 
+ 3) . 2 = Y" : BEEP 
2410 LINE ( 150, 50) —( 150, 180) ,4:LI 
NE ( 90 , 110)— (210, 110) ,4s BEEP 
2420 IF INKEY*="" THEN 2420 
2430 FOR Q=60 TO 105 STEP 5 
2440 PSET ( 150, Q) , 15 
2450 NEXT Q 

2460 FOR W=140 TO 160 STEP 5 
2470 PSET (W, 110) , 15 
2480 NEXT W 


2490 PRESET < 147, 42) :PRINT#1, "Y": 
BEEP 

2500 PRESET (213, 107) : PRINT#1 , "X" 

: BEEP: PRESET (76, 108) : PR1NT#1 , "-X " 

: BEEP: PRESET (146, 170) :PRINT#1, "-Y 
" : BEEP 

2510 IF INKEY*=" " THEN 2510 
2520 L I NE ( 40 , 50 ) — ( 40 , 120) :LINE(2 
0, 60) — (60, 60) 

2530 IF INKEY*=" " THEN 2530 
2540 PRESET ( 27 , 53 ) : PR I NT # 1 , " X " : B 
EEP : PSET ( 47 , 53 ) : PRINT#1 , " Y" : BEEP 
2550 IF INKEY*=" " THEN 2550 
2560 PRESET (27, 62) :PRINT#1, "1 8 

" : BEEP 

2570 IF INKEY*=" " THEN 2570 
2580 PRESET ( 1 55 , 70 ) , 4 
2590 IF INKEY*=" " THEN 2590 
2600 PRESET (27,74) :PRINT#1, "2 1 

O" : BEEP 

2610 IF INKEY*=" " THEN 2610 
2620 PRESET (160, 60) ,4 
2630 IF INKEY*=" " THEN 2630 
2640 PRESET (27, 86) :PRINT#1,"0 6 

" : BEEP 

2650 IF INKEY*=" " THEN 2650 
2660 PRESET ( 1 50 , 80 ) , 6 
2670 IF INKEY*=" " THEN 2670 
2680 PRESET (20, 98) :PRINT#1, "-1 
4": BEEP 

2690 IF INKEY*=" " THEN 2690 
2700 PSET (145, 90) ,4 
2710 IF INKEY*=" " THEN 2710 
2720 PRESET (20, 110) :PRINT#1, "“2 
2 ": BEEP 

2730 IF INKEY*=" " THEN 2730 
2740 PSET ( 140, 100) , 4 
2750 IF INKEY*=" " THEN 2750 
2760 LINE (170, 40) -(120, 140) ,4 
2770 LINE ( 170, 40) —( 120, 140) ,4 
2780 IF INKEY*=" " THEN 2780 
2790 PRESET (5, 175) :PRINT#1, "LA R 
ECTA CORTA AL EJE X EN ( 3 , 0) " : BEEP 
2800 PRESET (5, 185) :PRINT#1,"E IN 
TERSEPTA AL EJE Y EN ( 0 , 6 )": BEEP 
2810 IF INKEY*="" THEN 2810 
2820 CLS: SCREEN 0: COLOR 1,3,3 
2830 LOCATE 4, 10: PRINT"aX + b = 

Y" 

2840 LOCATE 0, 3: PRINT" VOY A GRAF 
ICAR UNA FUNCI ON DE PRIMER GRADO 
CON UNA INCOGNITA, FOR FAVOR" 

2850 LOCATE 0 , 19: PRINT"Para graf 
icar utilizar* la siguiente" 

2860 LOCATE 0 , 21 : PR I NT "ESC ALA :1 
division cada 5 pixels" 

2870 LOCATE 4 , 6 : INPUT" I NGRESE A" 

• ^ 

2880 LOCATE 4 , 7 : INPUT" I NGRESE B" 

; B 

2890 IF INKEY*=" " THEN 2890 
2900 CLS : SCREEN 2 
2910 LINE (60, 100)-(180, 100) ,4:P 
RESET ( 45 , 90 ) s PR I NT# 1 , " -X " s PRESET ( 
190,90) :PRINT#1, "X": BEEP: LINE (120 
,20) -(120, 190) ,4: PRESET (117, 10) :P 
RINT#1, "Y": PRESET (105, 180) : PRINT# 
1 , "— Y" s BEEP 

2920 FOR E=60 TO 180 STEP 5 : FOR 

R=20 TO 190 STEP 5 

2930 PSET (E, 100) , 15: PSET ( 120, R) , 

15 

2940 NEXT R : NEXT E 

2950 PRESET ( 10 , 0 ) :PRINT#1, "La es 

cala es 1 en 5" 

2960 IF INKEY*=" " THEN 2960 
2970 FOR X=-50 TO 100 
2980 Y=-A*X-B 

2990 PSET STEP ( 1 20 , 1 00 ) , 1 s PSET ( X 
,Y) ,3 

3000 NEXT X 

3010 IF INKEY*=" " THEN 3010 
3020 GOTO 120 
3030 CLS: SCREEN 0 

3040 PRINT"PROGRAMA PARA RESOLVE 
R UNA ECUACION" 

3050 PRINT"DE SEGUNDO GRADO 
3060 LOCATE 6 , 5 : PRINT"ax2 + bx + 
c = O" 

3070 LOCATE 0,10 

3080 I NPUT " COEF I C I ENTE DEL TERMI 
NO CUADRATICO a : "5 A 
3090 LOCATE 0,13 

3100 I NPUT" COEF IC I ENTE DEL TERMI 
NO LINEAL b: " ; B 
3110 LOCATE 0,15 

3120 I NPUT "TERM I NO INDEPENDIENTE 
c: " 5 C 

3130 0= ( B^2 ) — ( 4*A*C ) 

3140 IF 0<0 THEN 3180 ELSE 3150 
3150 H=0^(l/2) : V=B* (-1 ) +H: T=-B-H 
: X1=V/ (2*A) : X2=T/ (2*A) 

3160 PRINT: PRINT : PRINT" XI =" ; XI 


3170 PRINT : PRINT" X2=" ; X2: GOTO 32 
00 

3180 PRINT: PRINT: PRINT"NO PUEDO 
RESOLVERLA EN EL CAMPO REAL" 

3190 PRINT: PR I NT " LO SIENTO" 

1200 IF INKEY*=" " THEN 3200 

3210 CLS: SCREEN 0 

3220 PRINT" VOY A GRAFICAR UNA FU 

NCI ON CUADRATI- CA,POR FAVOR": BEE 

P 

3230 LOCATE O, 14: PRINT"Le aconse 
jo que el valor de A est£" 

3240 LOCATE 0, 15: PRINT"comprend i 
do entre -1 y l,y el de B" 

3250 LOCATE 0, 16: PRINT" que no su 
pere +- 10 , t ra tando que el va" 

3260 LOCATE 0, 17: PRINT"! or de C 


no sea muy grande" 

3270 LOCATE 0 , 20 : PRINT"ESTO SE D 
EBE A QUE LA PANTALLA ES" 

3280 LOCATE 0, 21 : PRINT" MUY REDUC 
I DA": BEEP 

3290 LOCATE 4, 5: INPUT" I NGRESE A" 


? A 

3300 LOCATE 4, 7: INPUT" I NGRESE B" 
;B 

3310 LOCATE 4, 9: INPUT" I NGRESE C" 
;C 

3320 CLS : SCREEN 2 

3330 LINE (60, 100) -(180, 100) ,4: PR 
ESET ( 1 85 , 90 ) 2 PR I NT # 1 , " X " s PRESET ( 4 
5 , 90 ) : PR I NT # 1 , " — X " : BEEP 
3340 LINE ( 120, 20) - ( 120, 190) ,4: PR 
ESET (117,10): PRINT#1 , " Y" : PRESET ( 1 
05, 180) :PRINT#1, "-Y" :BEEP 
3350 IF INKEY*=" " THEN 3350 


180 STEP 5 2 FOR 
5 

15: PSET ( 120, Q) , 


3360 FOR W=60 TO 
Q=20 TO 190 STEP 
3370 PSBT(W, 100) , 

15 

3380 NEXT Q: NEXT W 
3390 IF INKEY*=" "THEN 3390 
3400 FOR X=— 50 TO 100 
3410 PSET STEP (120, 100) , 1 
3420 Y=— A*X^2— B*X-C 
3430 PSET (X, Y) ,3 
3440 NEXT X 

3450 IF INKEY*=" " THEN 3450 

3460 GOTO 120 

3470 COLOR 1,15,15 

3480 CLS: COLOR 1 , 15, 15: SCREEN 0 

3490 LOCATE 4 , 0: PRINT"RECONSTRUC 

CION DE UNA ECUACION " 

3500 LOCATE 4, I 2 PRINT" hhhhhhhhhh 

"CUADRATICA 


3520 LOCATE 6,4:PRINT" 


3530 IF INKEY*=" " THEN 3530 
3540 LOCATE 0, 10: PRINT "LOS VALOR 
ES DE LAS RAICES DEBERA IN-" 

3550 LOCATE 0, 12: PRINT"TRODUCIRL 
OS COMO NUMEROS RAC I ON ALES ": BEEP 
3560 IF INKEY*=" " THEN 3560 
3570 CLS 

3580 LOCATE 4, 0* PR I NT " RECONSTRUC 
CION DE UNA ECUACION" 

3590 LOCATE 4, IsPRINT" hhhhhhhhhh 

"CUADRATICA 


3610 LOCATE 6,4:PRINT" 

3620 IF INKEY*=" " THEN 3620 
3630 LOCATE 0, 5: PRINT’* 1NTR0DUZCA 
LAS RAICES DE LA ECUACION" 

3640 LOCATE 4, 7: INPUT" VALOR DE X 
1 = " ; M 

3650 LOCATE 17, 8: PRINT" I- \-V' 

3660 LOCATE 16, 9: INPUT" * 5 N 
3670 LOCATE 4, 1 1 : INPUT" VALOR DE 
X2="$V 

1680 LOCATE 17, 12: PRINT" FFF" 

3690 LOCATE 16, 13: INPUT" * j J 
3700 LOCATE 4, 15: PR I NT "LA ECUACI 
ON RECONSTRU I DA ES: " 

3710 A=N*J 

3720 B=(A/N)*M+(A/J)*V 
3730 C=M*V 
3740 F=-B 

3750 LOCATE 4, 16: PRINT"AX2 + BX 
+ C = 0" 

3760 LOCATE 1 , 18: PRINT"SIENDO A 


3770 LOCATE 11, 18: PRINT A 
3780 LOCATE 8, 19:PRINT"B =" 
3790 LOCATE 11,19:PRINT F 
3800 LOCATE 8 , 20: PR I NT "C =" 
3810 LOCATE 11, 20: PRINT C:BEEP 
3820 IF INKEY*=" " THEN 3820 
3830 GOTO 120 


UMOUAjE^ 

LAS RIENDAS „■ 
DEL ASSEMBLER 


A partir de este momento comenzamos a 
sumergirnos dentro del Z-80. 

Veremos su funcionamiento y como contro- 
lar sus actividades. 



n el numero anterior vimos 
como es que un microproce- 
sador generico de 8 bits, tra- 
baja numericamente. 

Obviamente, todavia nos queda bastan- 
te por hablar al respecto, pero es sufi- 
ciente como para comenzar. 

LOS REGISTROS 


Estos son lugares dentro del mismisimo 
Z-80, en los cuales podremos almace- 
nar temporalmente alguna informacion 
Este espacio es muy similar (de hecho 
podemos pensarlo igual) al de una me- 
moria RAM de 26 bytes. 

Al ser tan pequena la capacidad del mis- 
mo, estos bytes o pares de bytes pue- 
den llevar nombres diferentes. Obvia- 
mente seria desesperante llamar a cada 
uno de los 65535 bytes de la RAM con 
un nombre distinto. 


FIGURA 1 



Cada uno de los bytes o pares asocia- 
dos de bytes, dentro de esos 26 que po- 
see el Z-80 en su interior, son los fa- 
mosos registros. 

Asi, para acceder a uno de estos regis- 
tros, no usaremos su numero sino su 
nombre. 

Ademas, algunos de estos tiene funcio- 
nes determinadas. Es decir que para rea- 
lizar determinadas tareas el Z-80 reco- 
noce solamente a algunos de ellos. 

En la figura I observamos los registros 
que generalmente utilizaremos. Como 
vemos, estan separados en grupos: los 
de 8 bits, los de 1 6 bits (dos bytes), y 
los de 1 6 bits separables. 

Los registros llamados A y F son dos re- 
gistros de 8 bits (ibyte) cada uno, pudien- 
do almacenar 256 numeros distintos. 
Los registros PC, SP, IX, e IY son re- 
gistros de 1 6 bits (2 bytes) a los que ac- 
cederemos con solo invocarlos, como 
veremos mas adefante, y que pueden al- 
macenar 65536 numeros diferentes. 
Por ultimo los registros BC, DE, y HL 
son un poco especiales. 

Por ejemplo, el par BC es un registro 
de 1 6 bits que al igual que el PC, puede 
almacenar 65536 numeros distintos. Pe- 
ro (recordemos que son dos bytes BC), 
tambien este par puede funcionar como 
dos registros de 8 bits cada uno, el B 
y el C. 

Lo mismo ocurre para DE y HL. Esto 
puede no ser demasiado claro, pero po- 
demos pensarlo como que algunas ins- 
trucciones (que veremos) utilizan solo 
uno, o sea la mitad de estos registros, 
por ejemplo el E. Asi E sera un regis- 
tro, o un byte bien deteminado dentro 
del Z-80. 



PROFUNDICEMOS 


Vamos a ver como es que un numero 
es almacenado dentro de uno de estos 
registros de 1 6 bits. 

Supongamos que de alguna forma pode- 
mos llenar el par BC con el numero 5 1 2. 
Si con una lupa informatica pudieramos 
ver solo el registro B de ese par, veria- 
mos el numero 2, y examinando el re- 
gistro C veriamos un 0 (cero). 

<Que ocurrio?. Si efectuamos la siguien- 
te multiplication tal vez se nos aclare un 
poco el panorama: 

B * 256 + C = 512 
B en el caso de pensar al par BC como 
de 1 6 bits, es el llamado byte Alto y 
C es el llamado byte Bajo« 

Si solo queremos almacenar un numero 
pequeno, no mayor que 255, podremos 
hacerlo, por ejemplo en un registro con 
el B. Pero si nuestro numero a almace- 
nar supera dicha cantidad, deberemos 
hacerlo en uno como el BC. En si, si- 
guen siendo dos registros de 8 bits pe- 
ro con un significado distinto, uno vale 
256 veces mas que el otro. Esto nos 
permitira almacenar hasta la cifra que 
nombramos anteriormente (65535). 
Este proceso no puede efectuarse con 
los registros no separables (PC, SP, IX, 
e IY). Supongamos de igual forma que 
almacenamos en el registro H el nume- 
ro 4 y en el L el numero I . Asi si obser- 
vamos el registro H veremos efectiva- 
mente que contiene el valor 4 y el L el 
valor I , pero si agrandamos la lupa, y 
observamos el par completo HL como 
un registro de 1 6 bits, veremos que con- 
tiene, al numero 1025. Esto es asi, pues: 
H*256 + L = 

= 4*256+1 = 1025 

El almacenamiento en los registros A y 
F no ofrece mayores dificultades de 
comprension, basta con saber lo que vi- 
mos en el numero anterior, pues cada 
uno representa a un byte comun y 
silvestre. 

Por otro lado existen los llamados re- 
gistros alternatives, que vemos en la fi- 
gura 2. Estos son registros que usa el 
Z-80 independientemente para efectuar 
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Registros alternativos 
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las operaciones necesarias, para cumplir 
con la intruccion que le mandamos ha- 
cer. En sintesis, no se pueden tocar si 
no se es un experto en el tema. For otra 
parte no tendremos necesidad de hacer- 
lo. De hecho, un mal manejo de estos 
registros pueden causar efectos 
insospechados. 

Pero presentemos formalmente a cada 
uno de estos registros. 

EL ACUMULADOR 

" 

El emperador dentro de la MSX, el 
Z-80, posee variadas instrucciones y va- 
riados grupos de instrucciones. 

La gran mayoria de las operaciones ma- 
tematicas, logicas o comparativas, entre 
otras, usan el acumulador como regis- 
tro de referencia. 

El acumulador es nada mas y nada me- 
nos que el registro A. 

Este humilde y privilegiado registro tie- 
ne 8 bits como capacidad de 
almacenamiento. 

El PC 

Este es un registro de 1 6 bits (dos bytes) 
no separable con una caracteristica muy 
particular. Sin el, la capacidad de ejecu- 
tar un programa de cualquier clase se- 
ria nula. 

Es el encargado de “almacenar” el va- 
lor de la posicion de memoria, en el cual 
se encuentra la sentencia que se esta eje- 
cutando de un programa Assembler. 
<Facil, no?. 

Pensemos que el micro debe recordar, 
en todo momento, cual es la siguiente 
instruccion a ejecutar. De lo contrario 
se perderia y los efectos de ello ya sa- 
bemos cuales son. 

Su nombre (PC) hace referencia a las pa- 
labras inglesas: Program Counter. 

Asi, la forma en que afectaremos el con- 
tenido de este registro sera principal- 
mente la que puede causar la longitud 
de nuestro programa. 

Como vimos, solo puede contener co- 
mo maximo el valor 65535, lo que nos 
indica a las claras que una instruccion no 
puede alojarse en una posicion de me- 
moria mayor que este valor. Por eso, 
nuestro programa Assembler nunca po- 
dra tener una longitud mayor a los 
65535 bytes (64 Kbytes). Este es el mo- 
tivo por el cual las MSX, ganeralmente 
y sin artilugios de paginacion o solapa- 
miento de RAM, no pueden “direccio- 
nar” mas de 64 Kbytes por vez. 

SP 

Stack Pointer es la raiz de su nombre, 
y al igual que el anterior, su capacidad 
de almacenamiento es de 16 bits (2 


bytes) y no es separable en dos regis- 
tros de 8 bits. 

Su funcion tiene que ver con su nom- 
bre, Stack (pila) y Pointer (puntero). 
Este registro es el encargado de conte- 
ner el valor de la posicion de memoria 
en la cual se halla el comienzo de una 
imaginaria "pila” de datos. Se puede de- 
cir que el SP "apunta” al comienzo de 
la "pila”. En su momento veremos co- 
mo se accede a ella. 

Por o .ra parte, esta pila tiene muchos 
usos, pero en forma general podemos 
decir que su funcion es almacenar valo- 
res temporales, que deben recordarse 
para su posterior uso. 

La pila no es mas que una zona perdida 
en la RAM de nuestra MSX, y su uso ha 

FIGURA 3 


de ser cuidadoso, pues nuestro progra- 
ma (si es que la utiliza) debera compar- 
tirla con el mismisimo Z-80. 

Por ejemplo, cada vez que un progra- 
ma Assembler llama a una rutina, el va- 
lor de la posicion de memoria en la cual 
se aloja la siguiente instruccion a ejecu- 
tar luego de esa rutina, debe ser alma- 
cenado en algun lugar para recordarlo 
a su debido tiempo. Ese lugar es la 
"pila”. 

En la figura 3, vemos graficamente la 
ejecucion de un programa imaginario, 
que nos'muestra lo que acabamos de 
decir. 

En el proximo numero continuaremos 
viendo los restantes registros y la no- 
menclatura utilizada. 


01 


02 


03 


04 



SP 

PC 
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Toshiba kx-m 

AVANZA LA NORMA MSX 


Con la aparicion de esta maquina en el 
mercado, la compatibilidad del standard 
MSX se extiende en nuestro pais. La po- 
sibilidad de utilizar la memoria como 
RAM-disk, y dos conectores para cartu- 
chos son ventajosas novedades en la 
computadora de Toshiba. Pero la HX-20 
se hace sobresaliente al presentar tarn- 
bien el procesador de textos incluido. 


u teclado, tipo maquina de es- 
cribir, es totalmente negro al 
igual que la carcaza. El set de 
tedas especiales se diferencia por su co- 
lor gris azulado, salvando la teda de 
STOP, que esta acabada en rojo fuerte. 
Sin entrar en sus especificaciones.tecni- 
cas, nos damos cuenta de que esta com- 
putadora es diferente. Solo encendien- 
dola, percibimos que se ha creado con 
un criterio estetico muy moderno y 
acorde a lo que este tipo de maquinas 
puede ofrecer al usuario. Una hermosa 
vista en color de una costa repleta de 
rascacielos, muy parecida a Manhattan, 
/isto desde Brooklyn, irrumpe ante los 
ojos del usuario. 

Inmediatamente aparece un menu que 
marca la primer diferencia con las MSX 
que transitan por el pais hasta el momen- 
to. Se nos ofrece la posibilidad de ele- 
gir entre dirigirnos al BASIC o al pro- 
cesador de textos que incorpora en 
ROM. 

El procesador de textos es realmente 
una herramienta potente, con muchas 
instrucciones de facil manejo, que indu- 
ye la posibilidad de archivar nuestro tra- 
tjajo tanto en cassette como en disco 
(cosa que no todos los procesadores de 
textos conocidos para MSX poseen). 

Otra de las novedades (siguiendo las nor- 
mas que el sistema MSX propone), es 
que posee dos slots o conectores para 
cartuchos standard. 

La norma no indica que necesariamen- 
te tengan que ser dos los slots para car- 
tucho, pero lo que indica es que si exis- 
te mas de una salida de este tipo, debe 
ajustarse a la norma. 

Por supuesto posee sus teclas de cur- 
sor, en un disefio elegante y comodo, 
sin resaltar demasiado las del resto pues 


su color es el mismo que el de las teclas 
especiales. 

Entre sus accesorios, posee una peque- 
na disquetera de moderno formato que 
utiliza discos de 3” y media, que si bien 
son mas caros que los de 5” y 1/4, son 
mucho mas fiables. Basta con ver los ul- 
timos disenos de disqueteras para las mas 
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afamadas computadoras para notar que 
esto es asi. Por ejemplo, la Ifnea ST de 
ATARI utiliza estos discos al igual que 
la PC Convertible de IBM y muchas 
otras. Estos disquetes vienen encapsu- 
lados en un sobre de plastico rigido, y 
la ranura por la que el cabezal del drive 
penetra, esta protegida con una cubier- 
ta metalica retractil que el mismo drive 
se encarga de correr para que pueda to- 
mar contacto su cabezal con el disco. 
Por otro lado, estos discos (aunque pa- 
rezca mentira) son capaces de soportar 
mas informacion que los anteriores. 
Aunque la HX-FIOI (as! se llama la 
disquetera) solo soporta, ateniendose a 
las normas, 360 Kbytes en cada disco, 
estos son capaces de soportar algo mas 
de I Mbyte sin formatear. 
Continuando con los medios de almace- 
namiento, y aunque puede utilizar cual- 
quier grabador de cassettes para pasar 
archivos, esta firma saca a la venta un 
Data Recorder KT-P22 para su 
uso. 

Ademas, puede ser usado con cualquier 
computadora. 

Pero el tema de los medios de almace- 
namiento no termina aqui. 

Veamos. Este tipo de maquinas (las 
MSX) solo pueden trabajar con 64 
Kbytes de memoria sea RAM o ROM 
debido a la limitacion que produce el 
Z-80, que es su microprocesador 
central. 


Asi, por ejemplo, podremos tener un 
bloque de 32 Kbytes de ROM que con- 
tenga el MSX-BASIC y el procesador de 
textos y 32 Kbytes de RAM. De esta 
forma nos quedan 32 Kbytes de RAM 
libres, pues esta maquina trae 64 Kbytes 
de RAM, y hasta aqui no hay nada no- 
vedoso. Pero resulta que mientras tra- 
bajamos comodamente con el MSX- 
BASIC standard, podremos utilizar esos 
32 Kbytes que la mayoria de las com- 
putadoras emplea para cargar un siste- 
ma operativo como el MSX-DOS u otro 
programa, para almacenar nuestros pro- 
pios programas. 

<Como? Es facil. Resulta, y esto si es no- 
vedad, que esta computadora posee 
otros 32 Kbytes de ROM en los cuales 
se aloja lo que ellos llaman un Basic 
ampliado. 

Entre otras cosas, nos da acceso a una 
serie de instrucciones que permiten gra- 
bar nuestros archivos en la RAM, que 
antes no podiamos utilizar, como si fue- 
ra un drive de discos. 






Los que no podamos adquirir un drive 
junto con la maquina, si podremos alma- 
cenar nuestros programas en esa RAM, 
mientras trabajamos con otros, o sim- 
plemente con nuevas versiones de nues- 
tro programa. Asi, al finalizar el dia, se 
pueden bajar los archivos alii alojados a 
cassette o a disquete. 

Como ya lo estaran suponiendo, la ve- 
locidad de transferencia, o el tiempo que 
tarda en pasar un programa a esta RAM- 
DISK, es practicamente imperceptible, 
pues ocurre a la velocidad de procesa- 
miento del Z-80, olvidandonos de la ve- 
locidad de los motores del drive de 
disquetes. 


Por otro lado, las instrucciones con que 
contamos para el tratamiento de los ar- 
chivos, son practicamente todas e igua- 
les a las de cualquier sistema de discos 
de MSX standard (MSX-DOS). 

Por supuesto que no encontraremos las 
instrucciones que vuelcan un sector del 
disco a RAM, pues esto no es un 
disquete. 

Continuando con la memoria, podemos 
decir que posee sus reglamentarios 1 6 
Kbytes de RAM para video, sumando un 
total de 80 Kbytes de RAM y 64 Kbytes 
de ROM. 

Por el lado de la informacion, no le fal- 
ta nada, pues viene acompafiada por tres 
manuales que explican todo su funcio- 


namiento, desde una introduction al Ba- 
sic para principiantes hasta el manejo de 
su RAM-DISK. 

La velocidad con que procesa la infor- 
macion no es nada despreciable, pues el 
Z-80 trabaja en esta maquina casi al li- 
mite de sus posibilidades :3,58 Mhz. 
Por supuesto posee ademas la salida de 
video compuesto, RF para TV, audio, y 
la salida paralelo standard para conec- 
tar una impresora cualquiera de este ti- 
po o lo que se nos ocurra. Ademas, los 
dos conectores de joystick, tambien 
standard (tipo ATARI), la salida para gra- 
bador y por supuesto los dos slot que 
nos permitiran trabajar con dos cartu- 
chos conectados a la vez, o con dos pe- 
rifericos, por ejemplo dos drives sin te- 
ner que comprar ningun tipo de cable 
adaptador o cartucho. 

Para este modelo que no induye la in- 
terface RS-232C (el HX-22 si la inclu- 
ye) existe un cartucho llamado HX- 
R700 RS-232C, que posibilita conectar- 
nos con cualquier periferico que tenga 
este tipo de interface (impresoras de 
cualquier marca, modem —del mas so- 
fisticado al mas simple—, etcetera). Re- 
cordemos que cualquier PC posee este 
tipo de conector de comunicaciones, y 
que podremos conectarnos con cual- 
quier computadora en forma directa sin 
utilizar redes tipo LAN. 






Teclado sintetizador HX-MU910 




ipresora HX-P550 de alta velocidad 



Grabadora de datos KT-P22 



Joystick HX-J400 


Impresora Plotter HX-P570 
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Ademas, en uno de los manuales se ex- 
plica claramente cada una de las funcio- 
nes e instrucciones standard y necesa- 
rias para manejar este importante me- 
dio de comunicacion. 

Para abarcar todos los espectros y gus- 
tos en computation, TOSHIBA nos 
ofrece la impresora HX-P550 de alta ve- 
locidad y matriz de puntos capaz de re- 
producir cualquier grafico que estas ma- 
quinas son capaces de soportar. 
Aparte de una vistosa y futurista linea 
de joystick (HX-J400), la empresa ha 
creado su HX-P570 que es nada mas y 
nada menos que un ploter de 4 colores 
capaz de trabajar a una velocidad de 285 
pasos por minuto. 

Demas esta decir que puede trabajar 
tanto como ploter que como la mejor 
de las impresoras. 

Por ultimo, nos queda por nombrar el 
HX-MU9I0, un hermoso teclado de 
cuatro octavas capaz de reproducir 65 
sonidos diferentes incluyendo instru- 
mentos de viento, cuerdas o percusion, 
pudiendose acompanar por melodias, 
ritmos y/o efectos sonoros de la mas ex- 
celente calidad. El resultado de nuestra 
sinfonia se puede almacenar tanto en 
cassette como en disco, lograndose una 
verdadera orquesta. 

Con respecto al Software desarrollado 
por TOSHIBA mismo, podremos en- 
contrar entre otros, potentes herra- 
mientas para la oficina como el Bank 
Street Writer, un excelso procesador 
de textos para los mas exigentes; el T- 
PLAN, que es un sistema de tabulacion 
no programable y facil de aprender que 
permite escribir muchos tipos de cua- 
dros y tablas; el T-GRAPH que es un 
graficador capaz de sacar por pantalla 
o plotter los graficos de barra, circula- 
res o de poligonos de los archivos que 
previamente se hayan cargado en la ma- 
quina; o por ejemplo el T— PAINTER 
que nos permitira realizar disehos grafi- 
cos tanto ardsticos como tecnicos de 
cualquier tipo. 

Y por ultimo, fabulosos juegos como el 
POLAR STAR, 3D GOLF, etcetera. 
Este es el nuevo horizonte que nos ofre- 
ce TOSHIBA en Argentina. 

En proximos numeros veremos una fi- 
cha tecnica detallada de esta nueva 
maquinola. 


distribuidores oficim.es 


COMPUPRANDO S.C.A. 

Av. de Mayo 965 
(1 085) Capital 
Te.: 38-0295 

COMPUSHOP S.A. 

Cordoba 1464 
(1 055) Capital 
Te.: 41-8730-42-9568 
49-21 65 

SERV. INFORMATICA S.A. 

Parana 1 64 
(1017) Capital 
Te.: 35-1853/0832 

ARGESIS COMP. S A 

Meeks 269 
(1832) Lomas de Zamora 
Te.: 243-1742 

MICROSTAR S.A. 

Callao 462 
(1022) Capital 
Te.: 45-0964/1662 

COMPUTRONIC S.R.L. 

Viamonte 2096 
(1056) Capital 
Te.: 40-4772/2279 
46-61 85 

DIST. CONCALES S.A. 

Tucumdn 1458 
(1 050) Capital 
Te.: 40-8664/0344 

MICROMATICA S.R.L. 

Av. Pueyrredon 1135 

(1118) Capital 
Te. 961-5578 
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Estructura del programa: 


10-230: pantalla inicial y menu de 
opciones 

240-370: calculo para el sistema 
f ranees 


Variables importantes: 

CC: capital 

N: afios que dura el prestamo 
Tl: tipo de interes (porcentaje) 

TM: interes en el mercado 
A: matriz con las anualidades 
CA: matriz con cuotas de amortizacion 
i: matriz con cuotas de interes 
CV: matriz con capital vivo 
FA: matriz con fondo de amortizacion 
FI: matriz con fondo de interes 
DP: matriz con deuda pendiente 


3 80-5 SO: calculos para el sistema 
aleman 

560-690: calculos para el uniforme 
700-870: calculos para el americano 


880-1330: muestra todos los resul- 
tados para cada sistema 
1340-1400: opciones finales 


Grafico comparative entre el capital y el interes 


SISTEMAUNI FORME Y 
FRANCES 

SISTEMA ALEMAN 






INTERES ^ff/77// 
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TIEMPO 

TIEMPO 


PRESTAMOS Y 
AMORTIZACIONES 

CLASE COMERCIAL 


ara ampliar el uso de las MSX, 
en este numero proponemos 
^ un programa sobre capitales y 
prestamos. 

Se puede realizar en cuatro sistemas: 
frances, uniforme, aleman y americano. 
Explicaremos brevemente las diferencias 
entre estos sistemas. 

Los dos primeros son bastante similares 
pues la amortizacion del prestamo se ba- 
sa en cuotas iguales en donde se comien- 
za con un interes que ira luego decre- 
ciendo. Esto se debe a que el interes se 
calcula sobre el saldo. 

En cambio para el sistema aleman la cuo- 
ta de interes es decreciente y se amor- 
tiza sobre el mismo capital. 

En el sistema americano, el interes es 
igual para todos los anos. 

El programa informa sobre cuotas anua- 
les sin interes, las cuotas de amortiza- 
cion del capital prestado, el capital 
amortizado y otros detalles mas. 

Se trata de un completo software, muy 
util para los que deban realizar opera- 
ciones comerciales sobre prestamos. 


1 10 CLS i KEY OFFS WIDTH 40s COLOR 11 

* 1 

20 FOR K=1 TO 10 

30 LOCATE 7*22s PRINT"Amor t i zac i 6 
n de prestamos" 

40 FOR H=1 TO 100: NEXT H 
50 CLSs FOR H*1 TO lOOsNEXT H 
60 NEXT K 

70 LOCATE 7* 22s PRINT' 1 Amor t i zac id 


n de prdstamos" 

80 FOR K=1 TO 50Qs NEXT K 
90 FOR K=1 TO 18: PRINT: NEXT K 
100 LOCATE 0*7 

110 PRINT" 1-Si sterna francos." 

120 PRINT" 2-S i sterna alemAn." 

130 PRINT" 3-Si sterna uni forme" 

140 PRINT" 4-Si sterna americano 


UNA OPCION (1-4) " 

160 Z*«INPUT*(1) 

170 Z=VAL(Z*):IF Z>4 OR Z<1 THEN 
150 

180 ON Z GOSUB 240,380*560,700 
190 CLSs PRINTS PRINT 
200 INPUT" Quieres hacer otro cu 
adro?" ; N* 

210 N$=LEFT$(N$, 1) 

220 IF N»="s" OR Nfc^'S" THEN RUN 


150 PRINTS PRINTS PRINT 


ELIGE 
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230 END 

240 CLS: PRINT 

250 INPUT" Ingresa el capital pre 


stado . 


cap: " ; CC 


260 INPUT" Ingresa el ntimero de a 
nos que dur6 ano:" 5 N 

270 INPUT" Ingresa el tipo de int 
er 6s . Tipo: u ?TI 

280 IF TI >1 THEN TI=TI/100 
290 CV<0)=CC 
300 FOR K=1 TO N 

310 A <K> =CC* < ( 1+TI ) ^N*TI ) / < < 1+TI 
) ^N-l) 

320 I <K>=CV<K-1)*TI 
330 CA (K) =A (K) — I (K) 

340 E<K>=E<K-1)+CA<K) 

350 CV(K)=CC-E(K) 

360 NEXT K: SIST=0 
370 GOSUB 880: RETURN 
380 CLS: PRINT 

390 INPUT" Ingresa el capital pre 
stado. cap: " ■ CC 

400 INPUT" Ingresa el n«imero de a 
nos que dur6 ano: "sN 

410 INPUT" Ingresa el tipo de int 
er 6s . Tipo:"5TI 

420 IF TIM THEN TI=TI/100 
430 C V ( 0 ) =CC : I ( 0 ) =CC*T I 
440 FOR K=i TO N 
450 A (K) = (CC*TI ) / (1-(1-TI) A N) 

460 NEXT K: CA (N) =A (N) 

470 FOR K=N-1 TO 1 STEP “1 
480 CA(K)=CA(K+1)*(1-TI) 

490 NEXT K 

500 FOR K=1 TO N 

510 E<K)=E<K-1>+CA<K> 

520 CV ( K ) =CC— E ( K ) 

530 I <K)=CV<K)*TI 
540 NEXT K : S I ST=0 
550 GOSUB 880: RETURN 
560 CLS: PR I NT 

570 INPUT" Ingresa el capital pre 
stado . cap: " • CC 

580 INPUT" Ingresa el niimero de a 
nos que dur6 ano: ";N 

590 INPUT" Ingresa el tipo de int 
er6s . T i po: " ; TI 

600 IF TI >1 THEN TI=TI/100 
610 CV<0)=CC 
620 FOR K=1 TO N 


630 CA(K)=CC/N 

640 E (K) =E (K— 1 ) +CA <K) 

650 C V ( K ) =CC—E ( K ) 

660 I <K)=CV<K)*TI 
670 A (K) =1 (K)+CA(K) 

680 NEXT K: SIST=0 
690 GOSUB 880: RETURN 
700 CLS: PR I NT 

710 INPUT" Ingresa el capital pre 
stado. cap:" ;CC 

720 INPUT" Ingresa el mlmero de a 
nos que dur6 ano:";N 

730 INPUT" Ingresa el tipo de int 
er6s. Tipo:" • TI 

740 INPUT" Ingresa el tipo de int 
er6s del mercado. Tipo:";TM 

750 IF TI >1 THEN TI=TI/100 
760 IF TM>1 THEN TM=TM/100 
770 DP (0) =CC 
780 FOR K=1 TO N 
790 I<K)=CC*TI 

800 CA<K>=CC*TM/< <1+TM)~N-1> 

810 A (K) =1 (K) +CA (K) 

820 FA(K)=CA<K)+FA<K-1)*<1+TM) 
830 FI (K)=FA(K-1)*TM 
840 DP (K) =CC-FA (K) 

850 NEXT K 

QAn Q T CT-/1 

870 GOSUB 880: RETURN 
880 CLS: PRINT 

890 PRINT" ** Anualidades **" :PR 
INT 

900 FOR K=0 TO N 

910 PRINT" Ano=" ; K; " =>";INT(A(K) 
) 

920 NEXT K 
930 GOSUB 1370 

940 PRINT" ** Cuotas de amort iza 
c i 6n **": PRINT 
950 FOR K=0 TO N 

960 PRINT" An o=" ; K; " =>";INT(CA(K 
) > 

970 NEXT K 
980 GOSUB 1370 

990 PRINT" ** Cuotas de in ter 6s 
**" SPRINT 
1000 FOR K=0 TO N 
1010 PRINT"AnO=";K; " =>";INT(I(K 
) ) 

1020 NEXT K 


1030 GOSUB 1370 

1040 IF SIST=4 THEN 1170 

1050 PRINT" ** Capital amort i zad 

0 **": PRINT 

1060 FOR K=0 TO N 

1070 PRINT"Ano=" ; K; " =>";INT(E(K 

> ) 

1080 NEXT K 

1090 GOSUB 1370 

1100 PRINT" ** Capital vivo 

PRINT 

1110 FOR K=0 TO N 

1120 PRINT" Ano=" 3 K; " =>" 3 lNT(CV< 
K> ) 

1130 NEXT K 
1140 GOSUB 1370 
1150 GOSUB 1340 
1160 RETURN 

1170 PRINT" ** Fondo de amort iza 
c i 6 n **" SPRINT 
1180 FOR K=0 TO N 
1190 PRINT"Ano=" ; K; " =>" 5 lNT(FA< 
K) ) 

1200 NEXT K 
1210 GOSUB 1370 

1220 PRINT" ** In t er 6 s del fondo 
: PRINT 

1230 FOR K=0 TO N 

1240 PRINT" An o=" ; K; " =>";INT(FI( 

K) ) 

1250 NEXT K 
1260 GOSUB 1370 

1270 PRINT" ** Deuda pendiente * 
*" : PRINT 

1280 FOR K=0 TO N 

1290 PR I NT " An o= " ; K ; " =>" 3 lNT<DP( 

K) ) 

1300 NEXT K 

1310 GOSUB 1370 

1320 GOSUB 1340 

1330 RETURN 

1340 PRINT: PRINT 

1350 INPUT "Deseas ver otra vez 

1 os resul tados" ; N*: N$=LEFT* <N* ? 1 > 
1360 IF N*="s" OR N*="S" THEN 88 
0 

1370 PRINT: PRINT 

1380 PRINT"Pulsa una tecla" 

1390 IF INKEY*="" THEN 1390 
1400 CLS: PRINT: RETURN 


. 



i bien este espacio esta reser- 
vado para informaciones acer- 
ca del Club MSX, es de nues- 
tro interes interiorizarlos sobre el fun- 
cionamiento del CEDI (Centro para el 
Desarrollo de la Inteligencia). En el se 
desarrollan diversas actividades referen- 
tes a la educacion utilizando como he- 
rramienta fundamental al computador. 
Cursos, talleres y seminarios son algu- 
nas de las actividades con las que cuen- 
ta esta Institucion, los cuales se llevan 
a cabo con el respaldo de profesionales 
idoneos en distintas areas (licenciados en 
sistemas, analistas de sistemas, pedago- 
gos, psicologos, etc.), lo cual asegura 
una gran responsabiiidad, tanto sea en 
la preparacion de los programas de es- 
tudio, dictado de cursos, elecci6n de 
tecnicas pedagogicas adecuadas y todo 
aquello concerniente al proceso de 
ensenanza-aprendizaje . 

■ 


Pero todas nuestras actividades no es- 
tan centradas en un segmento de la po- 
blacion en especial, sino por el contra- 
rio estamos abiertos a todo aquel que 
desee, de alguna manera, introducirse en 
el mundo de la Informatica. Para ello 
contamos con planes apropiados que 
puedan satisfacer las distintas expecta- 
tivas planteadas por docentes, profesio- 
nales, ninos, jovenes y adultos. 

A su vez el CEDI, a traves de todo su 
personal trabaja en forma constante pa- 
ra ofrecer un mejor y mas completo 
servicio. De esta manera es que el Club 
los invita a acercarse a este Estableci- 
miento e informarse sobre los nuevos 
planes de cursos de verano. Los mismos 
estan diagramados de tal forma que, por 
su duracion y frecuencia no le exigiran 
alterar el normal desarrollo de sus 
actividades. 


NUEVA SEDE EN 
CORDOBA 650 — 
CAP. FED. 

Teniendo en cuenta las consultas de so- 
cios y usuarios en general, sobre la po- 
sibilidad de abrir una nueva sede ubica- 
da en el microcentro de la ciudad, es que 
nos es grato informales sobre la inaugu- 
racion de un nuevo Centro adherido a 
nuestro Club. Este Centro, que cuenta 
con instalaciones de primer nivel y una 
cantidad importante de equipos y soft, 
es una prueba de que el Club de Usua- 
rios MSX tiene la mas firme ambicion de 
brindarle cada dia un servicio mas 
eficiente. 

Este Centro, ademas de funcionar co- 
mo Club de Usuarios MSX, proveera los 
servicios del Centro para el Desarrollo 
de la Inteligencia (CEDI). 

NUEVO SOFT 
DISPONIBLE: 


— Lenguaje de autor Pilot 

— Lr.riguaje Prolog 

— Nuevos utilitarios 

— Lenguaje Coboi-80 



Program acion aplicada 

GRAFICADOR ALTA 
RESOLUCION 

Como vimos en los numeros ante - 
riores, hemos programado pedaci- 
tos del programa: como movernos 
por la pan talla, pin tar y deque for- 
ma podemos guardar nuestro 
grafico. 

Pero con esto no hemos terminado 
de completarla estructura queha- 
biamos planteado desde el comien- 
zo. Restan detalles como los que ve- 
remos a continuacion. 



CORTAR LA CONTINUIDAD 
DEL DIBUJO 

Como vamos guardando los puntos es- 
trategicos de nuestro disefio, uno a con- 
tinuacion del otro, luego, para 
reconstruir el grafico, solamente unire- 


mos cada punto con sus vecinos. Es de- 
cir, el primer punto se unira con el 
segundo, al mismo tiempo que este se 
unira con el tercero y asi sucesivamente. 

Pero supongamos que tepemos disena- 
do un dibujo como el de la figura I I . 


En esta figura mostramos lo que podria 
ser nuestra pantalla y los puntos que de- 
ben guardar nuestras matrices PX y PY. 
Pero para desunir a los puntos PX(3), 
PY(3) con PX(4), PY(4), deberemos 
agregar un indicador. Por ejemplo: pre- 
sionar otra tecla de funcion provocan- 
do el almacenamiento en cada matriz de 
un numero especial, como el “-I” 
(Ver figura 1 2). 

Por lo tanto solo se debera colocar, pa- 
ra esta parte del programa, las siguien- 
tes sentencias: 
aumentar el numero 

de casillero A = A+I 

si no llenamos la 

matriz IF A <60 1 

entonces THEN 

colocamos el numero 
especial en 

las dos . . . PX(A) = - I : PY(A)= - I 
matrices 

volvemos al programa . . . RETURN 
principal 

Esta es otra parte del programa y la uni- 
remos luego con las otras porciones 

BORRAR CUALQUIER 
GRAFICO GUARDADO 
EN MEMORIA 

Cuando queremos borrar los puntos 
que fuimos entrando en la matriz al pre- 
sionar alguna tecla de funcion, significa 
en realidad borrar los valores que alma- 
cenaban en las cajas o bien colocar a ca- 
da una el valor cero (0). 

Como sabemos que el ultimo elemen- 
to (el ultimo casillero ocupado) es el que 
tiene el numero de orden A, haremos 
un loop desde I hasta A colocando el 
valor cero en el casillero de PX y al mis- 
mo tiempo en el de PY: 
hacemos un loop 

desde I hasta A . . FOR F = I TO A 

guardaremos un cero 

en cada casillero... PX(F) = 0: PY(F) = 0 

sucesivamente 

aumentar la variable 


del loop NEXT 

volver al programa RETURN 

principal 


REPRODUCER 

NUESTRO DISENO 

Vimos que esto se realiza uniendo cada 



punto con sus vecinos. Entonces al te- 
dear una tecla de funcion: 

pintaremos de color 
rojo oscuro 

el primer ... PSET (PX(I). PY(I)),6 

punto de l grafico 

con un loop desde 2 

hasta A FOR F = 2 T O A 

si esta guardado 

el nume ro especial . . IF PX(F)= - I 

entonces THEN 

salto un casillero 
(se corto el dibujo) 
y pinto el punto que 
representa...PSET(PX(F + l),PY(F+ l)),6 
las coordenadas de 

PX y_PY 

increm entar el loop NE XT 

volver al programa RETURN 

Todas estas sentencias se colocan una 
a continuacion de la otra. Pero cuando 
se da el caso en que PX(F) sea diferen- 

Figurall 


te de “ - I ”, el controlador del progra- 
ma saltara a la siguiente linea. Esta sera: 
unir el punto que se 
esta leyendo . LINE-(PX(F),PY(F),6 
con el punto anterior 


incrementar el loop NEXT 

volver al programa RETURN 

principal 


Con esto hemos terminado con los blo- 
ques del programa y ahora faltarian al- 
gunos detalles que ayudaran a unirlos. 

LEVANTAR EL LAPIZ ~ 

A medida que movamos la flecha por la 
pantalla, iremos dejando puntos pinta- 
dos con el color rojo oscuro. Pero si de- 
seamos movernos'sinimodificar con esto 
el grafico que estemos creando, esto se 
lograria al colocar un marcador o 
bandera. 

Por ejemplo, al presionar la barra de es- 
pacio, encenderemos la bandera o mar- 


cador poniendole el valor - 1 . Si 
volvemos a presionarla, la bandera ten- 
dra el valor I . Cuando se encuentre el 
valor del marcador en - I , le indicara 
a la computadora NO pintar nuestros 
pasos, y hacerlo si el valor es I. 
Transformemoslo en sentencia: 
cambiar el signo de 

la bandera NF = NF*(-I) 

(porque se presiono 
la barra espaciadora) 

Con esta expresion matematica, NF al- 
ternara su valor entre “I” 6 “.— I” a 
medida que utilicemos la barra 
volver al programa RETURN 

MOVER EL SPRITE 

Para ubicar el sprite (flecha en nuestro 
caso) segun nuestros movientos con los 
cursores (vimos esta parte en el nume- 
ro anterior) se emplea la sentencia: 
PUT SPRITE numero de sprite, (colum- 
na, fila), color del sprite. Para nuestro 
programa, el sprite definido Neva el nu- 
mero cero (0), columna sera el valor de 
la variable X y fila el de la variable Y. 
Pintaremos de color bianco al sprite, cu- 
yo codigo es 15. 

Finalmente la sentencia sera: PUT SPRI- 
TE 0, (X,Y), 15. 

PINTAR CAPA PUNTO 

Directamente lo pasaremos a sentencia: 


si la bandera es I ....... IF NF= I 

entonces THEN 


pinto el punto donde se 
encuentra actualmente . . .PSET (X,Y) 
el sprite 

En cambio si la bandera es diferente de 
“I” se continua con el programa. 

DETERMINAR LAS TECLAS 
PARA CAPA TAREA 

Hemos detallado cada bloque y dijimos 
que se ejecutaran al presionar las dife- 
rentes teclas de funcion. 



COORDENADAS 


PX(4) = - 1 , PY(4) = 




LA MANIJA EN 
JOYSTICK _ 


Menor precio 
Alta tecnologia 


del mercado. 


ARGEVISION 


• Garantia total 
de fabrica 


FABRICA ARGENTINA OE PR00UCT0S PARA COMPUTACION 
Adminlstracidn y Ventas: Calle 6 N* 665 (1900 La Plata 
Rep. Arg. Tel.. (021) 3-5990 - 24-5017 
Ae. de Mayo 1365 - 4* p. Of. 38 - 39 - Tel.: 37-6238 / 38-6398 
Olstr. para el Int. del Pais: C0RSAN - Uruguay 69 * 2* A 
Tel.: 37-6595 Capital Federal 


• En venta en los 
principales comercios 
del ramo 


• Totalmente fabricado 
en el pais. 


• Compatible con 
todas las micro 


■miCRDBVTE 

USTED SABE CUANTOS 
TITULOS TIENE MICROBYTE 
PARA SU MSX? 

(TODOS EN CASSETTE) 

• JUEGOS jv. 

• UTILITARIOS > CON MANUALES 


MONTEVIDEO 252 (1019) Cap. Te.: 38-0331 



PROGRAM ACION APLICADA 


Por ejemplo destinemos: 

FI . . borrara punto por punto 
F2 . . borrara regiones que encierren 
los cuadrilateros 

F3 . . guarda los puntos estrategicos 
del diseno 

F4 . . corta la continuidad del dibujo 
F5 . . borra cualquier grafico guarda- 
do en memoria 

F6 . . reproduce nuestro diseno 

Mientras que al teclear la barra de es- 
pacio levantaremos el lapiz. 

Estas asignaciones se declaran de la si- 
guiente forma: 

ON STRIG GOSUB numero de linea. 
Esto significa que si se presiona la barra 
de espacio, el controlador del progra- 
ma saltara al numero de linea declarado 
en esa instruccion y volvera cuando en- 
cuentre una sentencia RETURN. En 
cambio ON KEY GOSUB num. linea I , 
num. linea 2, num linea 3,... hara que 
al presionarse la primer tecla de funcion 
(FI) salte a “num. linea I” (que en rea- 
lidad es un numero y no letras, en nues- 
tro programa es la linea 6200), realice 
todas las operaciones hasta una senten- 
cia RETURN y vuelva. Si es presionada 
la tecla F2, saltara a num. linea 2, linea 
6210 para nuestro programa, y asi se 
sigue. 

Solamente resta preparar el sistema de 
la siguiente forma: 

habilitar las teclas de .... FOR F= I 
TO 6 : KEY (F) ON: NEXT 
funcion (solo 6 funciones) 
habilitar la barra de . . STRIG(O) ON 


espacio 

Inicializar variables 

color de fondo ND=I 

inicialicemos la 

primera columna X = 0 

Inicialicemos la 

primera fila Y = 0 

color de tinta . . . : TIN = 6 

bandera (para levantar 

el lapiz) NF= I 

dimensionar las 


matrices ... DIM PX(600), PY(600) 
Preparar la pantalla 
declarar el color de tinta 

y el de fondo COLOR TIN, I 

declarar que usaremos 

el modo de alta SCREEN 2 

resolucion para graficar 
En la figura I 3 mostramos como seria 
el esquema general del programa mas 
conocido como esquema de bloques. 
Con esto si hemos terminado de expli- 
car cada una de las sentencias del pro- 
grama y hemos tratado de mostrar el 
planteo que se utiliza para crearlo. 



Definir una linea para cada te- 
cla de funcion 


I Operar para mover el sprite y 
I dibujarlo 


Pintar los puntos por donde pa 
samos, siempre y cuando 
NF = 1 



Volvemos a la parte que mueve 
el sprite 



■ 


MODO DE UTILIZAR 
EL PROGRAMA 

Una vez verificado que este correcta- 
mente copiado el listado del programa, 
debemos entrar la sentencia RUN. Ya 
sabemos cuales son las teclas que se uti- 
lizan para manejar el programa y para 
que sirve cada una. Una vez terminado 
el dibujo que queriamos hacer, guarde- 
mos los puntos estrategicos. Previamen- 
te presionemos la tecla F4 para 
asegurarnos que no haya “basura” u 
otros dibujos guardados en las matrices. 
Al terminar de guardar los puntos mas 
importantes del grafico, debemos dete- 
ner el programa presionando simulta- 
neamente las teclas: CTRL y STOP. 
Luego entramos la siguiente linea: 

I PRINT A: PRINT: FOR F= I 
TO A: PRINT PX(F): PRINT 
PY(F): NEXT 

En la pantalla apareceran los valores de 
las coordenadas. Pero como la impre- 
sion de estos valores se realizara muy 
rapido, aconsejamos ir deteniendola pre- 
sionando solamente la tecla STOP. Co- 
piemos los numeros en el mismo orden 
que aparecen. 

Una vez que tengamos estos datos, en 
el programa donde queremos copiar el 
dibujo, hay que agregar las siguientes 
sentencias: 

100 READ A: FOR F= I TO A: 
READ PX(F), PY(F): NEXT 
I 10 DATA valor del primer numero co- 
piado, segundo numero... 

Los numeros de linea 1 00 y I 1 0 los po- 
demos modificar. Depende de donde 
querramos colocar el dibujo de nuestro 
programa. 

Luego de la orden DATA, deberemos 
colocar los numeros copiados antes, sin 
alterar el orden. 

Y por ultimo las sentencias: 

120 PSET (PX(I), PY(I)),6 
130 FOR F = 2 TO A: IF PX(F) = - I 
THEN PSET(PX(F + I), PY(F + l)),6: 
NEXT ELSE LINE -(PX(F),PY(F)), 

6: NEXT 

Estos numeros de lineas tambien son 
modificables, pero deberan seguir a las 
lineas anteriores. 

Con esto, lograra copiar el dibujo en 
cualquier programa y de una forma bas- 
tante sencilla. 

En el listado que mostramos hay varia- 
bles seguidas por el signo de admiracion. 
Esto es para que la maquina opere con 
mayor rapidez. 

Lo unico que faltaria es darle a cada sen- 
tencia que vimos en la explicacion un nu- 
mero de linea. Esto lo mostramos con 
el listado. 










VELOCIDAD 


Para afirmar la rapidez de eje- 
cucion de un programa en 
codigo de maquina contra 
otro en Basic (que ambos lle- 
guen al mismo resultado), les 
mostramos aqui un ejemplo 
para los que se resisten a 
aceptar esta desventaja de 
tiempos. 

Con el listado de la figura I , 
copiamos los caracteres en 
pantalla uno por uno, con un 
programa fundamentalmente 
en Basic. 

El tiempo que tarda hasta ter- 
minar de ejecutar el progra- 
ma es bastante. 

Pero no es la unica forma de 
copiar los caracteres sobre la 
pantalla. Por ejemplo, en la fi- 
gura 2 proponemos una ma- 
nera mucho mas veloz que la 
anterior. 

Este programa esta hecho ba- 
sicamente sobre rutinas en 
codigos de maquina. 

Se recurrio para esto a una 
rutina del sistema que co- 
mienza en la posicion de me- 
moria &h005C. 

Esta rutina mueve bloques de 
memoria desde la RAM, ha- 
cia la VRAM. A los que en- 
tienden Assembler, les acla- 
ramos que el par HL debe te- 
ner la direccion del bloque a 
transferir. En el par DE se 
guarda la direccion a partir de 
la cual se va a copiar el blo- 
que, y el registro BC debe te- 
ner la longitud de este. 

Si ejecutamos cada progra- 
ma, veremos la gran diferen- 
cia en tiempo que tarda en- 
tre uno y otro. 

Los programadores en codi- 
go de maquina pueden apro- 
vechar la rutina del sistema 
mencionada, para incorporar 
en sus programas. Pero de- 
ben tener en cuenta los va- 
lores que mencionamos mas 
arriba para los registros HL 
DE y BC. 

Un INPUT diferente 

Si te molesta el signo de in- 
terrogation que aparece des- 
pues del INPUT, con las II- 


neas de la figura 3 se 
solucionara. 

Lo que hacen es colocar un 
parche sobre el signo 
Luego de hacer correr esta 
rutina, veras las sentencias 
INPUT sin signo de pregun- 
ta. Para volver a visualizar es- 
tas sentencias con el signo, 
simplemente entra la 
instruction: 

POKE &HFDEC.&HC9 

TRAMPA PARA 
BLAGGER 

En el numero 6 de nuestra 
publication, comentamos un 
juego llamado BLAGGER. 
Los que lo probaron habran 
notado lo diflcil que es pasar 
de un nivel a otro. 

Todos deseamos llegar al ul- 
timo nivel, peroescasi impo- 
sible pues, al perder las vidas, 
volvemos al inicio del juego. 
Con el listado de la figura 4, 
te mostramos una forma de 
hacer trampa. Se trata de 
convertirnos en inmortales o 
bien de poner nosotros mis- 
mos un llmite de vidas. 

De esta forma se nos amplian 
las posibilidades de llegar a la 
ultima pantalla, y ver que su- 
cede cuando logramos atra- 
vesar los diferentes desafios. 
Simplemente debes copiar (y 
sin errores) el listado de la fi- 
gura 4. Este programa se en- 
cargara de copiar el juego. 
No te olvides de grabar este 
programa cargador antes de 
hacerlo correr. 


CODIGO DE 
CARACTERES 


En la figura 5 mostramos un 
corto programa que, al eje- 
cutarlo, imprimira en panta- 
lla los codigos ASCII de las te- 
clas que vayas presionando. 
Como la mayoria de los ma- 
nuales que vienen con las 
computadoras no traen apen- 
dice con la lista de codigos y 
caracteres, con este progra- 
ma se resolvera este 
inconveniente. 


Figura 3 


10 

POKE 

&HFDE1 7 &HC3 

20 

POKE 

&HFDE2,&HD2 

30 

POKE 

&HFDE3? &H23 

40 

POKE 

&HFDE0? &HF 1 


I P igura 1 

10 COLOR 1 ? 15, is SCREEN 2 
20 DEFINT AjCjD? X , Y 
30 A=0 : D=?tH 1 BC7 : C=203? 

40 FOR Y=0 TO 2 

50 IF Y=2 THEN A=407?: C=6120= D 
=&H 1 BC7 

60 FQR X=A TO C 
70 VPOKE X ? PEEK ( D ) : D=D+ 1 
SO NEXT X 

90 IF Y=0 THEN A=2Q40: C=4079:D= 
&H 1 BC7 
100 NEXT Y 

110 GOTO 110 

Figura 2 


10 COLOR 1,15: CLEAR 200,8<HEFFF 
20 SCREEN 2 

30 FOR I=8tHF000 TO &HF00C 
40 READ A 
50 POKE I, A 
60 NEXT 

70 D E F U 8 R = & H F 0 0 0 

SO GQSUB 160 

90 POKE &HF004 ? 8tHF8 

100 POKE 8sHF 005 ? &H7 

110 GQSUB 160 

120 POKE 8tHF 00'4 ? 8tHF 0 

130 POKE 8<HF 005 , ?<HF 

140 GOSUB 160 

150 GOTO 150 

1 60 X=USR ( 1 ) : RETURN 

170 DATA 8th21 , ?<hc7, 8-h 1 b , &.h 1 1 ? &h0 

, gthO, 8th 1 

180 DATA 8th f 8 , 8th7.- 8th cd ? 8th5c , 8thO? 
8th c9 


Figura 4 
10 KEY OFF : CLS 

20 PRINT"Qu.er4s no tener limits 
de vidas? (S/N) " 

30 Z*= I NPUT $ ( 1 ) : IF Z$= ! ‘n*' OR Z$= 
"N" THEN 70 

40 IF Z$="s“ OR Z$="S" THEN 50 E 
LSE 30 

50 D 1 =8tH9C3D : D2=8tH9CDD 

60 DT=20 1 : GOTO 100 

70 CLS : I NPUT “ Ndmer o d e v i das " “ DT 

80 IF DT>60 THEN 70 

90 D 1 =8tH9254 : D2=D 1 

1 00 SCREEN 1 , 0 , 0 , 1 : BLOAD '* c as : " , R 

: BLOAD" cas: " 

110 DEFUSR=37202 ! : POKE D 1 , DT : POK 
E D2 7 DT : A=USR < 0 ) 

Figura 5 

10 CLS: KEY OFF : SCREEN 0: COLOR 1 - 

4 

20 E$= INKEY*: IF E$=" “ THEN 20 
30 FOR 1=0 TO 255 

40 IF E*=CHR*<I> THEN PRINT "El c 
ddiqo decimal de"; CHR* ( I ) ; : PRINT 
"es: " ; I 

50 NEXT 
60 GOTO 20 
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DESNUDAMOS EL 
CHIP DE SONIDO 

Veremos las funciones de cada patita y as! podre- 
mos entender que sucede cuando creamos musica 
desde el Basic. Analizaremos los procesos internos 
desde una optica algo tecnica. 





I culpable de los sonidos en 
nuestro computador es el chip 
denominado AY-3-8910. Es 
conocido tambien por las siglas PSG 
(Programable Sound Generator). 

El Ay-3-8910 tiene varias patitas, cada 
una con un nombre, como se ve en la 
figura I. 

Cada pata tiene una funcion. Pero reem- 
plazaremos la palabra funcion por I * * 4 re- 
gistros”. 

Cada registro va acompanado por un da- 
to. De esta forma se le indica al PSG lo 


que debe hacer. 

Pero el PSG no es el chip maestro de la 
computadora. O sea la CPU (cuyo nom- 
bre es Z80) funciona por separado, aun- 


que existe una constante comunicacion 
entre ambos. 

El Z80 maneja al chip de sonido como 
si fuera otro periferico, como podria ser 
una imperesora o un joystick. 

Veamos un poco la funcion de cada pa- 
tita del Ay-3-8910: 

♦ I0A0-I0A7, I0B0-I0B7: son 
lineas de entrada y salida A y B, conoci- 
das como puerto de entrada-salida. 

A estas lineas es donde se conectan los 
perifericos. Cada accesorio (como los 
joysticks) debe dejar y leer senales para 
poder funcionar. Pero no todos los pe- 
rifericos leen en el mismo tiempo que 
el procesador manda la serial de orden, 
ni pueden ser todos conectados al mis- 


mo “bus de datos’’, ni entienden todos 
la informacion en el sistema binario. Una 
forma de solucionar estos inconvenien- 
tes y muchos mas, fue la creacion de es- 
tos puertos de entrada-salida (E/S). 
Imaginemos a estos puertos como luga- 
res donde los datos son alojados por el 
procesador hasta que puedan ser leidos 
por el periferico correspondiente, o 
hasta que se conviertan para que pue- 
dan ser entendidos por este ultimo. 
Consisten en lineas conectadas al bus de 
datos del Z80 y otra al bus de datos del 
periferico. Los dos puertos para el PSG 
son IOAO-IOA7 llamado puerto exter- 
no A y /OB0-/OB7: puerto externo B. 
Los datos son leidos y escritos en estos 



registros (RI4 para A y R.I5 para B). 
Es conveniente destacar, para que que- 
de claro, que la unica tarea de estos re- 
gistros es la de entrar o sacar datos. 

* DA0-DA7: es otro bus de datos, 
pero sirve para comunicarse con el mi- 
cro y seleccionar el registro a modificar. 

* A8-A9: anaden 2 bits de significa- 
cion al PSG para aquellos sistemas que 
tengan conectados mas de un periferi- 
co. Si por ejemplo deseamos seleccio- 
nar el funcionamiento del PSG, 
deberemos darle a A8, +5 voltios, o 
sea, nivel logico I, ya la patita A9: 0 
voltios, es decir, nivel logico 0. 

Si damos cualquier otra combinacion no 
reconocera el funcionamiento de 
DA0-DA7. En consecuencia no podre- 
mos modificar ningun registro. 

* BDIR, BC2, BCI : son las encar- 
gadas de decodificar, traducir, las sena- 
les enviadas en DA0-DA7, tanto para la 
entrada como para la salida de datos. 
Una combinacion entre las tres lineas ha- 
ce que se puedan ejecutar varias opera- 
ciones. La forma de conseguirlo esta 
detallada en la figura 2. 


Figura 1 
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* TEST I - TEST 2: no cumplen nin- 
guna funcion aprovechable para el usua- 
rio. Fueron creadas por el fabricante 
para testear el buen funcionamiento del 
chip (para tener una garantia de que fun- 
cionaran luego de salir de su fabrica, en 
una brillante MSX armada). Es aconse- 
jable no conectarle nada a estas patitas 
porque no se tiene abundante informa- 
cion sobre ellas. 

* CLOCK: es una entrada de tipo 
TTL, y se usa para hacer los tiempos de 
los tonos, ruidos y envolventes. 

* VCC, VSS: alimentacion de tension 
para el chip. Debe ir + 5 y 0 voltios en 
VCC y VSS respectivamente. 

* Canal A, B y C: salida analogica del 
sonido para cada canal: A, B y C. 

ESCRIBIR Y LEER 

REGISTROS 

Para escribir en registros del PSG se de- 
bera: I) colocar el dato a escribir en 
DA0-DA7; 2) aclarar que escribiremos 
una direccion, con las combinaciones 
adecuadas de las patitas BDIR, BCI y 
BC2 que generalmente se utiliza (ver fi- 
gura 2) BDIR= I, BCI = I; 3) y el par 
BCI y BC2 = 0 para dar un valor a un 
registro. 

En cambio para leer un valor deberemos 
I) darle a BDIR = 0, BC I = I y BC2= I 
para despues leer el dato en DA0-DA7. 
O sea que para escribir un valor en un 
registro sera: I) escribir con BC I = I y 
en DA0-DA3 representar en binario ef 
valor del registro a modificar; 2) escri- 
bir con BCI = 0 y en DA0-DA7 colo- 
car el valor a pasar al registro. 

Y para leer un valor de un registro: I) 
igual que para escribir un valor en un re- 
gistro y 2) realizar una operacion de lec- 
tura, leyendo en DAC DA7 el valor del 
registro indicado. 

CREANDO TONOS 

Se utilizan 2 contadores: uno se iniciali- 


za con el contenido del registro de con- 
trol del canal correspondiente. Los 
registros para cada canal son R0 y Rl 
para el A, R2 y R3 para el B I y R4, R5 
para el C. El numero con que se iniciali- 
zara este contador es de 1 2bits: 8 para 
ajuste fino y 4 (bit 0-bit 3) para el 
grueso 

Este valor inicial ira decreciendo en I 
por cada 2 ciclos el clock. Al llegar a ce- 
ro, vuelve a tomar otro valor del regis- 
tro de control de algun canal y genera 

Figura 2 
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un pulso. Este pulso sirve de entrada pa- 
ra el segundo contador. Puede ser solo 
un numero de 2 bits, o sea cualquiera 
de estos valores: 00, 01, 10 y II. 

Cada vez que recibe un pulso del primer 
contador, aumenta en uno su valor hasta 
llegar all. Luego vuelve a repetir este 
valor (II) para despues comenzar a res- 
tar I tambien con la llegada de cada pul- 
so. Cuando llegue a 00, repite este valor 
nuevamente y otra vez le suma I hasta 
llegar all. Este ciclo se repite sucesi- 
vamente hasta que el registro de con- 
trol de tono se ponga en 0. 

<Pero que sucederia si tomaramos los 2 

Figura 3 


bits del segundo contador y lo utiliza- 
ramos como entrada de un conversor 
analogico digital? Pues si, obtendriamos 
como respuesta una serial periodica en 
el tiempo, con una frecuencia determi- 
nada por la formula: 

fr 

f= 

1 6*tp 

donde f es la frecuencia de la serial de 
salida y fr es 1 .7897725 MHZ para las 
MSX (frecuencia del reloj interno) y tp 
es el contenido del registro de control 
de tono. 


CLK 



Veamos un ejemplo: ^corno seria para 
obtener una frecuencia de 440 Hz, en 
las MSX? Segun vimos, utilizando la for- 
mula seria poner: 

1.7897725 

= 254 

16* 440 


en el registro de control A (puede ser 
otro canal si quisieramos). Este nume- 
ro se repartiria en 254 para el R0 y 0 
para R I . 

Las figuras 3, 4 y 5 son para los que en- 
tienden un poco mas de electronica y 
desean un estudio mas profundo sobre 
la generacion de tonos. 


CREANDO RUIDOS 

La forma de generarlos es similar a la 
usada para los tonos, salvo que el con- 
tador se inicializo con el valor del regis-- 
tro R6 en los bits 0 o 4 poniendose los 
7 bits superiores en cero. Con estos da- 
tos se genera una serial que modula la 
amplitud del generador de ruido bianco 
y suena verdaderamente como si fuera 
un ruido. Si bien hay un solo canal para 
esto, debemos indicar en que canal lo 
deseamos escuchar, si en A, B o C. 

Figura 4 
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Figura 5 






EL COMPOSITOR 
AUDAZ 

CLASE: UTILITARIO 


o se trata de un programa in- 
solito y exclusivo. Esta es una 
version diferente de los simu- 
ladores de piano que permitira crear 
melodias. 

Contamos solo con una octava, pero te- 
nemos la ventaja de poder modificar el 
tono y la duracion. 

Al dar una primera vista al listado, no- 
taremos que posee estructuras con PO- 
KES y PEEKs. Esto dificulta un poco el 
seguimiento para los que quieran enten- 
der detalladamente como es el funcio- 
namiento de este utilitario. Pero gana 
velocidad cuando se ejecuta el 
programa. ^ 

Para variar el tono, se utiliza la tecla 
“ I ”, Al presionarla, ira cambiando el to- 
no, con la correspondiente identifica- 
cion. Es decir, que simultaneamente al 
teclear “ I”, se viSualizara en pantalla el 
cambio de tono y auditivamente nota- 
remos la modificacion. Podemos elegir 
entre tres tonos distintos, y se cambia 
la eleccion solamente presionando la te- 
cla “ I Recordalo. En cuanto a la du- 
racion, con la tecla “2” disminuiremos 
la duracion y con la ”3” aumentaremos. 
Lo mas importante que diferencia este 


programa de los otros utilitarios del mis- 
mo estilo, es la rapidez entre la respues- 
ta del tono y la tecla presionada. 
Debajo del dibujo del piano estan escri- 
tas las teclas de la computadora que co- 
rresponden a cada tecla del piano. 

Las teclas de funcion no estan desacti- 
vadas y esta es una gran ventaja. Vea- 
mos porque. 

Si ”F5” esta definida con la sentencia 
RUN, el programa hara sonar 
las notas correspondientes a la “R” y 
a la ”U”. La “N” no esta definida. 
Entonces, si definimos “FI” como 
“asdfghj”, hara sonar una escala ascen- 
dente, correspondiente al tono de ca- 
da letra. 

Les daremos una sugerencia de como 
aprovechar esta ventaja: primero prac- 
tiquen bien una melodia y memoricen el 
orden de las letras. Luego definan las te- 
clas de funcion con las mismas letras (y 
en el orden adecuado) que lleva la 
musica. 

Cuando vuelvan a ejecutar el programa 
y presionen las teclas de funcion, oiran 
la musica que han creado. Interesante, 
<no? 






VARIABLES IMPORTANTES: 

PX, PY: matriz con las coordenadas 
del sprite guia. 

TP: matriz con los tonos destinados a 
cada tecla. 

ESTRUCTURA DEL PROGRAMA: 


I O- 1 40: inicializa variables, lee datos 
del DATA. 

I 50-280: dibuja la pantalla. 

290: lee la tecla presionada. 

300: ubica el sprite guia sobre el pia- 
no segun la tecla presionada. 
310-330: toca el tono correspon- 
diente. 

340-530: datos. 

540-590: controla el tono. 
600-700: controla la duracion. 



10 CLEAR 300,S<HD7FF:S=0:F0R N=&H 
D800 TO &HD857 

20 READ H*:X=VAL("S<H"+H*> :S=S+X: 
POKE N, X s NEXT 

30 IF S07686 THEN PRINT"No esta 
n bien los valores de las lineas 


340-530" 

40 DIM TN(ll) ,TP(45> ,PX(45> ,PY(4 
5) , LX (45) ,LY(45> ,KY(20) :DEFUSR0=*< 
HD800 

50 POKE&HFCAB, 0: TQ=— 1 s RT=5s FOR N 
=0 TO 1 1 sREADTN (N) 

60 IF TN(N>=1 THEN PY(N+7)=110 E 

LSE PY <N+7) =135 

70 NEXT: PX (19) =224! PY (19) =135 

80 FOR N=0 TO 45s LX <N) =214:LY(N> 

=49: READ TP (N) : NEXT 

90 FOR N=7 TO 18s READ PX(N)sPX<N 

) =PX (N> —5: NEXT 

100 FOR N=0 TO 6:PX (N> =PX (N+12) — 
125: PY (N) =PY (N+12) sNEXT 
110 FOR N=20 TO 25s LX <N> =234: PX < 
N)=PX(N-13) SPY (N)=PY(N-13) sNEXT 
120 FOR N=26 TO 31 : LX (N) =194: PX ( 
N) =PX (N— 19) : PY (N) =PY (N-19) : NEXT 
130 FOR N=32 TO 38: LX (N)=234sPX < 
N) =PX (N-19) :PY<N)=PY (N-19) sNEXT 
140 FOR N=39 TO 45s LX (N) =194: PX < 


N) =PX (N— 39) : PY (N) =PY (N-39) : NEXT 
150 COLOR 15, 12, 12: SCREEN 2:0PEN 
"GRPs" FOR OUTPUT AS#1 
180 SPRITE* (0>=CHR*(&H1 8) +CHR*(& 
H3C) +CHR* (&H7E) +CHR* (&HFF) +CHR* (*< 
HFF) +CHR* (&H7E) +CHR* (&H3C) +CHR* (& 


H18) 

170 LINE<0,30)— (255, 180) ,6,BF:LI 
NE ( 10, 30) - (248, 180) , 1 , BF 
180 LINE (16, 78) -(238, 154) , 14, BF: 
LINE (20, 80) - (236, 150) , 15, BF 


190 PSET (30,33) , lsPRINT#l,” 

LOAD MSX MUSIC" 

200 FOR N=0 TO 10s X=N*18+38: LINE 
(X,80)-(X,150),1 

210 READ Is IF 1=1 THEN LINE(X-4, 
80)-(X+4» 120) , 1,BF 
220 NEXTsGOSUB 540:G0SUB 630 
230 LINE (203, 53) -(212, 49) , 15s LIN 
E- (212, 57) , 15s LINE- (203, 53) , 15 
240 LINE (232, 53) -(223, 49), 15s LIN 
E- (232, 57) , 15s LINE- (232, 53) , 15 
250 PSET (30,60) ,1s PRINT#1 , “T 0 N 
0" 

260 PSET ( 1 15, 60) , 1 s PRINT#1 , "DURA 
CION" 

270 COLOR is FOR N=0 TO 19: PSET (P 
X (N) , (PY (N) — 1 10) /2+165) , 12s PRINT# 
1 , CHR* (PEEK (&HD829+N) ) sNEXT 
280 SOUND 7,&B001 1 1 1 10: SOUND 8,1 
6s SOUND 9,16s SOUND 12, RT*10: SOUND 
13,0 

290 P0KE&HF3F7, 0: L=USRO (0) s IF L= 

-1 THEN GOSUB 670: GOTO 290 

300 PUT SPRITE 1 , (LX (L) , LY (L) ) , 4 

, OsPUT SPRITE 0, (PX(L),PY(L)),9,0 

SON TQ+1 GOTO 330,320,310 

310 SOUND 2, (TP(L) M0D256)+1:S0U 

ND 3, TP (L) /256:G0T0 330 

320 SOUND 2, (TP(L)/2) M0D256SS0U 

ND 3, TP (L) /512 

330 SOUND 0,TP(L) MOD 256s SOUND 
1, TP (L)/256: SOUND 13, Os GOTO 290 
340 DATA CD, 9F, 00, IE, 00, 21,29, D8 
350 DATA 01 , 2F, 00, ED, Al , E2, 19, D8 
360 DATA 28,03, 1C, 18, F6, 16,00, 18 
370 DATA 03, 1 1 , FF, FF, 32, 5F, D8, 3E 
380 DATA 02, 32, 63, F6,ED, 53,F8» F7 
390 DATA C9, 61, 77, 73, 65, 64, 72, 66 
400 DATA 67,79,68,75, 6A, 6B, 6F, 6C 


410 DATA 70, 3B, 40, 3A, 5D, 47,59, 48 
420 DATA 55,4A,4B,07, 19,08, 15, OA 
430 DATA OB, 4F, 4C, 50, 2B, 60, 2A, 7D 
440 DATA 01, 17, 13,05,04, 12,06, aO 
450 DATA O, 1,0, 1,0,0, 1,0, 1,0, 1,0 
460 DATA 320,302,285,269,254,240 
470 DATA 214,202,190,180,170,160 
, 151,143, 135, 127, 120,113, 107 
480 DATA 107,101,95,90,85,80 
490 DATA 428,404,381,360,339,320 
500 DATA 75,72,68,63,60,56,53 
510 DATA 640,604,570,538,508,480 
,452 

520 DATA 102,111,120,129,138,156 

, 165, 174, 183, 192,201,210 

530 DAT A 1,1, 1,0, 1,1, 0,1, 1,1,0 

540 TQ= (TQ+1 > MOD 3 

550 IF TQ>=1 THEN SOUND 7,*tB0011 

1100 ELSE SOUND 7, &B001 1 1 1 10 

560 FOR T=0 TO 2:LINE(T*24+24,50 

)-(T*24+39,57) , 1,BF 

570 LINE (T+24+24, 50) — (T*24+39, 57 

) , 15, B: NEXT 

580 LINE (TQ+24+25, 51 ) — (TQ*24+38» 
56) ,9,BF 
590 RETURN 

600 RT=RT+1 s IF RT>10 THEN RT=10 
610 GOTO 630 

620 RT=RT— 1 s I F RT<1 THEN RT=1 
630 LINE ( 104,50) — ( 183, 57) , 1 , BF 
640 LINE (104, 50) -(183, 57) , 15, B 
650 FOR T=1 TO RT:LINE(96+T*8,51 
) — ( 102+T+8, 56) , 3, BF s NEXT 
660 SOUND 12, RT*10: RETURN 
670 CM=PEEK(*tHD85F> s IF CM=*cH31 T 
HEN 540: RETURN 

680 IF CM=*<H33 THEN 600s RETURN 
690 IF CM=&H32 THEN 620: RETURN 
700 RETURN 





I « 


MANIC 

MINER 

CREATIVIDAD: 8 
PRESENTACION: 10 
ATRACCION: 8 
SON I DO: 9 
GRAFICOS: 9 
TIPO: ENTRETENIMIENTO 
PRODUCE: BITGAME 

P* on este juego tenemos la oportunidad 
■ de convertifnos en un minero que re- 
~ correra una serie de cavernas. 


De acuerdoa nuestra logica, un minero busca oro 
o un tesoro, pero este es diferente. Su ambicion 
consiste en recolectar todas las Haves distribuidas 
en las diferentes cuevas. 

Cada caverna tiene su trampa, pero todo se solu- 
ciona cuando desciframos el truco que nos impide 
recoger a cada Have. 

Durante todo el juego nuestros oidos percibiran 
una melodla agradable y suave, pero que conse- 
guira aumentar nuestros nervios por la frecuen- 
cia musical en la que esta creada. 

Manic Miner es un entretenimiento muy bien pen- 
sado y cuenta con una amplia cantidad de graficos 
como telefonos, pinguinos, patos y focas de circo. 
La pantalla inicial esta representada por una gran- 


ja con una casita, un perfecto arbol y una laguna 
donde se refleja un sol muy especial. 

Pero, ademas de la excelente graficacion de este 
cuadro, esta pantalla se destaca por la presencia 
de un tedado musical. 

La musica principal de Manic Miner se escucha so- 
lo en la pantalla inicial, y en el piano se marcan las 
tedas que se presionan para crear esta melodia. 
Este pasatiempo es del mismo estilo que BLAG- 
GER, ya comentado en el numero 6 de esta 
revista. 

En definitiva, un juego de mucha accion, donde no 
solo los reflejos son importantes, sino que la as- 
tucia para encontrar el mejor camino, es funda- 
mental. 


SPOOKS & LADDERS 


CREATIVIDAD: 8 
PRESENTACION: 7 
ATRACCION: 7 
SON I DO: 6 
GRAFICOS: 8 
TIPO: ENTRETENIMIENTO 
PRODUCE: BITGAME 


fara juegos de accion, Spooks & Lad- 
ders es ideal, se trata de subir y bajar 
L£J escaleras, esquivar fantasmas y reco- 
ger elementos valiosos como Haves, plata y joyas. 
No es sencillo cumplir el objetivo de recolectar 
los objetos, son pocas las escaleras por las que ten- 
dremos acceso a los diferentes pisos. 

Si alcanzamos escapar por las salidas de aire ubica- 
das en la parte superior de la pantalla, obtendre- 
mos puntos extra. 

Para los carteles y comentarios utilizados en este 
juego, se redefinio el set de caracteres. 

Son varias las pantallas que forman la travesla de 
Spooks & Ladders. 

Una ventaja de este entretenimiento es que no- 
sotros podemos elegir el nivel de dificultad con el 
cual queremos comenzar. 

Como podemos ver en una de las primeras pan- 
tallas adaratorias, cada objeto tiene distinto pun- 
taje, pero estan dados por la dificultad que repre- 
senta tomarlos. 



Nos encontramos frente a un juego muy atrapan- 
te, cualidad esencial de estos programas corner- 
dales, debido a que durante el juego con Spooks 
encontraras constantemente distintas sorpresas. 
De acuerdo a tu habilidad, pasaras a incorporar 
la tabla de honor de Spooks & Ladders, formada 
solo por los seis mejores jugadores. 

Una vez cargado el programa, si presionas una sola 
vez la barra de espacio, veras todas las pantallas 
adaratorias con las explicaciones del juego, los pun- 


tajes de los objetos, etc. Pero necesitaras tener 
paciencia. 

Y para conduir este comentario, queremos diri- 
girnos a los que aun no conocen el juego, dos de- 
talles: 1 0 los fantasmas mueven los ojos como si 
nos estuvieran tratando de encontrar con la mi- 
rada para perseguirnos, y 2° cuando seamos al- 
canzados por los fantasmas, nuestro cuerpo se 
transformara y consumira de una forma particu- 
lar y graciosa al mismo tiempo. 







SENJYO 

CREATIVIDAD: 5 
PRESENTACION: 6 
ATRACCION: 8 

SONIDO: 8 

GRAFICOS: 7 
TIPO: ENTRETENIMIENTO 
PRODUCE: BITGAME 

■ agamos volar un poco nuestra imagi- 
nacion y pensemos como puede llegar 
Lf_T a estar distribuida la vida dentro de este 
infinito cuerpo celeste donde vivimos. 

Tal vez no seamos los unicos seres vivientes. Tal 
vez, en la Tierra no sean solamente “hombres” 
los habitantes. Tal vez el paisaje de la capa terres- 
tre no sea como la de estos dias. 

En fin, en el futuro se pueden producir varios 
cambios. 

SENJYO tomo una pequena version de lo que po- 
dria pasar despues de varios siglos en nuestro 
Planeta. 

Se podria interpretar como una version un poco 
pesimista sobre el destino de la Tierra, pues se- 
remos atacados continuamente por naves extra- 
terrestres. Estas naves dispararan sucesivamente 
contra nosotros con el fin de destruirnos. 
Nuestro objetivo es defender nuestro terreno sin 
ser destruidos. El paisaje futurista que propone este 
entretenimiento consiste en un cielo oscuro, pa- 
cifico y limpio, que inspira sensacion de infinito. 
Las montanas elevadas y punteagudas forman ba- 
rreras en la superficie de este extrano paisaje. 
No se ven vidas aparte de los extraterrestres. Ni 
un simple animal o vegetal se incorpora al grupo 
de protagonistas de este juego. 


ASIA 


CREATIVIDAD: 6 
PRESENTACION: 7 
ATRACCION: 7 
SONIDO:NO 
GRAFICOS: 8 
TIPO: EDUCATIVO 
PRODUCE: BITGAME 


arte de nuestra cultura consiste en co- 
nocer las ubicaciones y detalles impor- 
tantes de los patses que constituyen el 
globo terraqueo. 

Algunos continentes son sencillos de estudiar co- 
mo Europa y America. Pero el objetivo se com- 
plica cuando se trata de los continentes africano 
y asiatico. 

Una forma mas agradable de memorizar la parte 
geopolltica de los paises orientales, es recurrir a 
este programa llamado ASIA. 

Consiste en una dinamica leccion con informacion 



Las naves enemigas apareceran desde el horizon- 
te y se desplazaran por la superficie como acari- 
ciando las laderas de las montanas. 

Todo parece muy pacifico, pero esta no es una 
cualidad que destaca a SENJYO. Este es un juego 
de mucha accion donde los reflejos son 
importantes. 

El rapido avance de las naves atacantes activan los 
nervios de cualquier jugador, induso de los mas 
serenos. Es conveniente no quedarnos quietos, asi 
impediremos que nos puedan apuntar. 

La calma del cielo se rompera cuando pasen (solo 
en determinados momentos) extraiios objetos vo- 
ladores a los que deberemos destruir. 


Muy original es la forma de anotar los puntos. Con- 
siste en una tabla cuadriculada con un total de 30 
casilleros. Al destruir las naves llenamos uno de 
estos cuadraditos, en cambio si derribamos a los 
objetos voladores, seremos mas afortunados re- 
llenando dos casilleros. Cuando logremos comple- 
tar la tabla, pasaremos de nivel. 

La dificultad de los niveles crece por ser cada vez 
mayor el numero de naves que nos atacan. Y pa- 
ra ser mas interesante el desarrollo, cambian las 
figuras de los objetos voladores. 

Esta es una version diferente de los dasicos jue- 
gos espaciales que fueron el origen de los entren- 
tenimientos electronicos y tiene la ventaja de ser 
facil de manejar. 



sobre los paises, como por ejemplo su religion, 
poblacion, moneda y lengua. 

Moviendonos por el continente con los cursores, 
podemos elegir el pais sobre el cual necesitamos 
informacion. 

Con la barra de espacio aparecera el nombre del 
mismo, luego al presionar RETURN obtendremos 
informacion. Y si posteriormente presionamos la 


barra espaciadora, se imprimiran sobre la panta- 
lla, toda la informacion restante del pais elegido. 
El contorno del continente y de los paises esta per- 
fectamente logrado, y su calidad como programa 
no es perjudicada por no contar con sonido. 
Insistimos que se trata de un educativo muy didac- 
tico, que permitira al usuario incorporar conoci- 
mientos en forma divertida. 






Para comunicarse con nosotros de- 
ben escribimos a “Load Revista 
para Usuarios de MSX", Parana 
720, 5to. Piso, (1017) Cap . 
Federal. 



RESET 


Me gustaria que expliquen 
si esta computadora posee 
“ventanas” y que otros pe- 
rifericos vendran proxima- 
ntente. 

Lo que mas interesa es que 
hagan un “reset” para po- 
neiio dentro de la computa- 
dora* Comenten donde 
puede ubicarse para no to- 
car otros elementos, cuales 
son las piezas necesarias pa- 
ra construirlo y como se pi- 
den en las casas de electro- 
nica. iPuede dejarse perma- 
nentemente conectado a la 
computadora por medio de 
una soldadura y as / tener 
cualquier otro periferico co- 
nectado normalmente t 
lEI idioma Pascal viene en 
cassette t Los felicito por la 
revista que es muy buena y 
porque todo lo que trae es 
entretenido. Una parte in- 
teresante es “ Halting Soft ”. 

Alejandro Furno - Santa Fe 


LOAD MSX 


La existencias de ventanas 
depende del programa, algu- 
nos programas las incorpo- 
ran. 

Todas las novedades que apa- 
receran en el mercado las 
comentamos en la seccion FI- 
LE. Y algunos de los perife- 
ricos que saldran son real- 
mente interesantes. 

No hace falta construirse un 
reset para la Talent: esta in- 
corporado. Sobre las teclas 
SELECT y HOME, hay un 
rectingulo amarillo con las 
letras MSX en negro. Este 
rectingulo esta apoyado en 
una tapa que se hunde. Si 
hundimos esta tapa a la altu- 
ra de la tecla INS notaremos 


que hay una chapita plateada. 
Al tocar esta chapita en su 
punto medio, provocamos 
un reset de la computadora. 
Este tipo de reset lo pode- 
mos utilizar con confianza, 
pero debemos evitar que no 
entre ningun elemento ex- 
traho al hundir la tapa. 

Este reset fue creado para 
que al insertar los cartuchos 
se produzca el reset adecua- 
do para no dafiar la 
computadora. 

Con esto se evita colocar los 
cartuchos con la maquina en- 
cencida (el reset provoca una 
interruption de corriente pe- 
queha como para apagar la 
maquina). Eso podria provo- 
car danos en el cartucho y en 
la maquina. Con respecto a 
Pascal, si viene en cassette. 

PROBLEMA ~ 
EN LOS PRO- 
GRAMAS 

Llego a la editorial una 
carta del Dr. Norberto 
W. Melhem, plantean- 
donos varias inquietu- 
des. No la publicamos 
textualmente debido a 
su longitud . 

Antes , queremos acla- 
rar que nuestra critica 
de “El libro gigante de 
los juegos para MSX” 
de Andrew Lacey se 
baso en la calidad de 
los programas, pero 
esto no incluia garan- 
tizar que esten bien 
impresos en sus pagi- 
nas. Nosotros no he- 
mos copiado ningun 
programa, solo los 
juzgamos estudiando 
los listados. Nos pre- 
gunta sobre algunos 
problemas que tiene 
con los programas de 
este libro. 

No encontramos a 
simple vista cual es el 
error. Necesitamos un 


poco de tiempo para 
estudiar el inconve- 
niente. Ademas nos 
dice **Duda 2s El pro- 
grama “verificador” 
que se encuentra en el 
mismo libro, pide que 
se lo grabe con la or- 
den SAVE“CASsAUT- 
VER”; y luego pide 
que se lo cargue en la 
computadora con la 
orden 

LOAD “CAS: A UTVER- 

99 

En las instrucciones 
del Manual de la com- 
putadora, dice que las 
grabaciones deben 
efectuarse con la or- 
den “ CSA - 

VE“XXXXXX” y 
cargarse con 

CLOAD“XXXXXX” 
debiendo haber entre 
comillas hasta 6 carac- 
teres. Entonces habria 
que aclarar este punto 
aparentemente con- 
tradictor io. 

Duda 3s iQue significa 
programa ASSEMBLER 
o en ASSEMBLER 2 
Duda 4s En la revista 
MSX 3, de la pagina S, 
“Sprites Vivos”, en 
donde dicens “las pri- 
meras li'neas de todo 
programa que utilice 
este sistema deben ser 
las siguientess ...” (es- 
to es lo que me llama 
la atencion), veo que 
al lado de las senten- 
cias u ordenes, a la de- 
reclta , encolumnadas 
se lee una serie de sen- 
tencias BASIC y a con- 
tinuation otras como 
LDHL,69I2. 

Preguntos tque signifi- 
ca y por que van enco- 
lumnadas a la derecha 
y alejadas del numero 
de linea y no a conti - 
nuaciont iComo se 


transcribe esto en la 
computadora t” 


LOAD MSX 

Sobre la duda 2, hay dos for- 
mas de grabar. Una con 
CSAVE-CLOAD, y de esta 
manera los archivos se graban 
en formato binario compri- 
mido. Esto significa que se 
guardan tokens (codigos cla- 
ves que identifican a las sen- 
tences) en forma binaria y 
una a continuation del otro. 
En cambio, SAVE-LOAD car- 
ga o graba los archivos en 
forma de ASCII. Esta mane- 
ra es muy lenta, porque en 
vez de guardar la sentencia, 
por ejemplo, PRINT bajo su 
codigo correspondiente (to- 
ken), lo desarma en caracter 
por caracter y guarda los co- 
digos ASCII correspondientes 
a la P,R,I, etc. 

Pero la ventaja de tener ar- 
chivos grabados en formato 
ASCII (con SAVE), es que es- 
tos archivos se pueden mez- 
clar con otros sin importar 
en el formato que se encuen- 
tren grabados. 

La mezcla entre programas 
se realiza mediante el MER- 
GE. Para utilizar esta senten- 
cia es recomendable leer su 
explicacion en el manual de la 
computadora. 

La duda 3 es muy sencilla con- 
testarla. Primero deberiamos 
aclarar que significa Assem- 
bler. Este es el lenguaje direc- 
to que entiende la 
computadora. Consiste en 
una serie de numeros, cada 
uno con un significado y que 
deben unirse de una forma en 
particular. Se puede escribir 
programas en este lenguaje. 
Y sobre la publication de la 
pagina 5, no se pudo hacer de 
otra forma mas clara. La pri- 
mera columna son las senten- 
ces BASIC, ) en la segunda 
columna esta el significado del 
programa en Assembler car- 
gado (en codigo) dentro del 
DATA. 

Solo hace falta cargar las sen- 
tences BASIC. En las paginas 
de la revista lamentablemen- 
te se ven un poco apretadas 
las dos columnas y esto con- 
fundio. 


di6logo-D.P. 


Computacion, 
una oportunidad para que 
todos ensenen y aprendan. 


Un lugar para 

desarrollarel pensamiento. 

descubrir una vocacion. 

manejar lenguajes de 
computacion. 

comprender los multiples usos 
de un computador. 

capacitar y perfeccionar al 
docente. 

incorporar los avances 
tecnologicos. 

que el profesional domine el 
uso de nuevas herramientas. 

que los padres se reencuentren 
con sus hijos. 

"No se trata solamente de 
adquirir en forma puntual 
conocimientos definitivos, 
sino prepararse a elaborar a lo 
largo de toda la vida, un saber 
en constante evolucion y de 
aprender a ser." 

UNESCO 


Talent 


Actividades '86 

Para Ninos, Adolescentes, 
Adultos, Docentes, 
Profesionales y 
Establecimientos educativos. 

INTRODUCCION A 

MICROCOMPUTADORES 

DIAGRAMACION 

ESTRUCTURADA 

LOGO 

BASIC 

COLOR - SPRITE - SONIDO 

COBOL 

PASCAL 

ASSEMBLER 

MS - DOS Y MSX - DOS 

DBASE II -MULTIPLAN 

PROCESADOR DE LA PALABRA 
INSTALACION DE 
LABORATORIOS 
en Establecimientos educativos 
con formacion de multiplicadores 
y apoyo a la comunidad. 


Como? 


• Taller en grupos de12 a15 
personas. 

& Clases de 2 horas diarias. 

® 2 6 3 alumnos por equipo. 

® Equipos disponibles para 
practicas adicionales en horarios 
libres. 

$ Becas rentadas en el 
Departamento de investigacion 
y desarrollo de Talent MSX. 

• Becas rentadas para 
docentes en Laboratories 

de Establecimientos Educativos*. 

Informes, Inscription y Cursos 

Lunes a Viernes de 8 a 22 hs. 
Sabados de 8 a 13 hs. 
CENTRAL: 

Cabildo 2027 - ler. Piso "A" 
(1428) 

Capital Federal 
FI LI ALES: 

Centro: Esmeralda 320 - 3° 
(1343) 

Capital Federal 

Lanus: Caaguazu 2186 
L. Este 

Capital: Tucuman 2044 - 1° 
(1050) Capital Federal 



Inteligencia en credmiento. 


Centro para 
el desarrollo de 
la inteligencia. 

Descubramos y construyamos juntos los 
caminos que nos permitiran el uso inteligente 
de los productos de la creatlvidad humana. 



Titulos no oficiales 



A la computadora personal 

Talent 

nada le es imposible 


MSX es marca registrada de MICROSOFT CORPORATION 


Porque gracias a la norma Internacional MSX. la 
TALENT MSX trasciende sus propios limites. 

Hasta ahora, cuando usted compraba una 
computadora personal de cualquier marca. quedaba 
automaticamente desconectado del resto del mundo 
de la computacion. Porque los distintos equipos y 
sistemas no eran compatibles entre si. 

Hasta que dos grandes empresas de informatica, 
la Microsoft Corp. de EE.UU. y la ASCII del Japon se 
pusieron de acuerdo para crear una norma standard: 
la MSX. Que se expandio tambien rapidamente en 
Europa. Y que hoy TALENT presenta por primera vez 
en la Argentina. 

Mientras que la mayoria de las computadoras de su tipo 
que se ofrecen en el mercado nacional, han sido 
discontinuadas por obsoletas en sus lugares de origen, 
TALENT MSX tiene casi ilimitadas posibilidades 
de desarrollo. Porque la norma MSX es en todo el 
mundo inteligencia en crecimiento. 

La TALENT MSX pone a su disposicion un mundo de 
software para elegir. Y con la incorporation de todos 
sus perifericos llega a ser una autentica computadora 
profesional. 


UTIL 

Su poderoso sistema operativo MSX 
permite e! acceso a todo tipo de 
procesamiento de datos: 

• Planillas de calculo. 

• Procesadores de palabra. 

• Graficos de negocios. 

• Bases de datos (d Base II. etc.) 

• Contabilidad general, sueldos. y 
jornales. costos. etc., desarrollados 
bajo CP/M en Basic. Coboi. Pascal o C. 


Con la posibilidad de conexion a Imea 
telefonica permite la transferencia y 
consulta de datos entre computadoras 
personales. profesionales o bancos de 
datos. 

La grabacion de archivos es en formato 
MS-DOS. haciendola compatible con las 
computadoras profesionales. 


DIDACTICA 

Dispone de tres lenguajes para la 
ensenanza de computacion: LOGO como 
lenguaje de induccion para los mas 
chicos. Lenguaje de Programacion en 
Castellano, para todos los que quieran 
aprender a programar sin conocimientos 
previos. Y Basic MSX como lenguaje 


profesional Mas una amplia variedad de 
perifericos como el Mouse. Lapiz Optico. 
Tableta gratica. Track-ball. etc. 


DIVERTIDA 


La mas genial para Video-Juegos. Por la 
amplisima biblioteca de programas 
-todos nuevos- de la norma MSX en el 
mundo. Y ademas. el Basic MSX permite 
al usuario generar sus propios juegos 
con un manejo tan simple, como solo 
TALENT MSX puede ofrecer. 


CARACTERISTICAS TECNICAS 

• Memona principal 64 KB ampliable 
hasta 576 KB. . 

• Memoria de video: 16 KB RAM. 

• ROM incorporada de 32 KB 
con el MSX-Basic de Microsoft. 

• Graficos completos. hasta 32 sprites 
y 16 colores simultaneos. 

• Generador de sonido de 3 voces 
y 8 octavas. 

• Conexion para cualquier grabador. 

• Interfaz para salida impresora paralela 

• Conectores para cartuchos 
y expansiones. 

• Fuente para 220 V 

y modulador PAL-N incorporado. 


DISTRIBUIDORES AUTORIZADOS: CAPITAL FEDERAL: AMATRIX. Bolivar 173 - ARGECINT. Av. de Mayo 1402 - BAIDAT COMPUTACION. Juramento 2349 - COMPUPRANDO. Av. de 
Mayo 965 - COMPUSHOP. Cordoba 1464 - COMPUTIQUE. Cordoba 1111, E. P. - COMPUTRONIC. Viamonte 2096 - CP67 CLUB. Florida 683. L. 18 - DALTON COMPUTACION. 
Cabildo 2283 - ELAB. Cabildo 730 - MICROSTAR. Callao 462 - Q.S.P.. Bartolome Mitre 864 - SERVICIOS EN INFORMATICA. Parana 164 - DISTRIBUIDORA CONCALES. Tucuman 
1458 - MICROMATICA. Av. Pueyrredon 1135 - ACASSUSO: MICROSTAR ACASSUSO. Eduardo Costa 892 - AVELLANEDA: ARGOS. Av Mitre 1755 - BOULOGNE: COMPUTIQUE 
CARREFOUR. Bernardo de Irigoyen 2647 - CASTELAR: HOT BIT COMPUTACION. Carlos Casares 997 - LANUS: C0MPUT4CI0N LANUS Caaguazu 2186 - LOMAS DE ZAMORA: 
ARGESIS COMPUTACION. Av. Meeks 269 - MARTINEZ: VIDEO BYTE. Hipolito Yrigoyen 32 RAMOS MEJIA: MANIAC COMPUTACION. Rivadavia 13734 - SAN ISIDRO: FERNANDO 
CORATELLA. Cosme Beccar 249 - VICENTE LOPEZ: SERVICIOS EN INFORMATICA. Av. de! Libertador 882 - BAHIA BLANCA: SERCOM. Donado 327 - SUMASUR. Alsina 236 - LA 
PLATA: CADEMA. Calle 7 N° 1 240 - CER0-UN0 INFORMATICA. Calle 48 N° 529 - MAR DEL PLATA: FAST. Catamarca 1 755 - NECOCHEA: CAFAL. Calle 57 N 2920 - SERCOM . Calle 57 
N° 2216 - TRENQUE LAUQUEN: COMPUQUEN. Villegas 231 - CORDOBA: AUTODATA. Pasaje Santa Catalina 27 - TECSIEM. Santa Rosa 715 - ROSARIO: 2001 COMPUTACION, Santa 
Fe 1468 - MINICOMP. Maipii 862 - SISOR. Urquiza 1062 - SANTA FE: ARGECINT. P. San Martin 2433. L. 36 -SIS0R, Rivadavia 2553- INFORMATICA. San Geronimo 2721/25 - 
VILLA MARIA: JUAN CARLOS TRENTO. 9 de Julio 80 - MENDOZA: INTERFACE. Sarmiento 98 - BIT & BYTE. 9 de Julio 1030 - C0M0D0R0 RIVADAVIA: COMPUSER. 25 de Mayo 827 - 
GENERAL ROCA: DISTRIBUIDORA VECCHI. 25 de Mayo 762 - LA PAMPA: MARINELLI. Peilegr-m 155 - NEUQUEN: MEGA. Perito Moreno 383 - EDISA Roca esq. Fotheringham - RIO 
GRANDE: INFORMATICA M & B. Perito Moreno 290 - SAN CARLOS DE BARILOCHE: L ROBLEDO & ASOCIADOS. Elfein 13. Piso 1 - TRELEW: 'STENOVA, Sarmiento 456 - 
PARANA: MARIO GARCIA. Laprida y Santa Fe - POSADAS: CENTRO DE COMPUTOS ELDORADO. Colon 2429 - RESISTENCIA: FRANCO bANIl Carlos Pellegrini 761 - SAN 
sari/anriR np iiuiiy- npi ta nn.MPMTAnnN Qaita una . qaita- dfi ta r.nMPiiTAninM r.acpmc a7a . qan miriifi rf tiipiimaw- i FYirnro q hp iniin aa . fi Fr.TRDNir.A 



